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*Düsseldorfer Mundart für einen bekannt hochwertigen Computer 






Rechtzeitig zur Äpfel-und-Nüsse-Zeit 
eine gute Nachricht für alle Appel-Freunde 
und die es noch werden wollen: Die 
Zeit ist reif für einen OKI-Drucker! 
Denn sowohl den OKIMATE 20 als 
auch die Hochleistungsdrucker 
MICROLINE 192/193 gibt es jetzt in 
einer Appel-kompatiblen Version. Lassen Sie 
sich von den appetitlich-leuchtenden Farb- 
möglichkeiten des OKIMATE 20 fas- 
zinieren. Natürlich in einer voll Appel- 
Scribe-kompatiblen Version. Für ö 
Grafik, Illustration und Text bis hin Be 
zur Schönschrift-Qualität werden Ihrer 
Phantasie durch den OKIMATE 20 kaum Grenzen 
gesetzt. Zu einem Preis, der ihn zu einer der begehr- 
testen Früchte unter den Farbdruckern macht, bietet 
er über 100 Farbabstufungen, ausgedruckt auf Nor- 
mal- oder Thermopapier und sogar auf Klarsichtfolie 
für die Overhead-Projektion. 

Mit dem MICROLINE 192/193 bringen wir Sie 
auf den süßen Geschmack von High-Technologie: 
Ein ultraslim-Design, neuartige Flat-Pack-Modul- 
Bauweise, Einzelblatteinzug, hohe Speicherkapa- 
zität im Puffer, und das Ganze extrem leise - all dies 
sind auch für Ihren Appel paradiesische Aussichten. 
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; OKI IST O.K. 


Zusätzlich beim MICROLINE 193: Druckbreite 
345 mm, Schallschluckhaube und serienmä- 
(iger Traktor zur Verarbeitung von EDV- 
Endlos-Papier. 

Für Ihren Appel nur das Beste! Natürlich gibt's 
diese Köstlichkeiten von OKIDATA auch für 
alle anderen PC’s. 

Sie wünschen so kurz vor Weihnachten 
detailliertere Informationen? Dann 

trennen Sie sich von dem Coupon, oder machen 
Sie sich schnurstracks auf den Weg zu Ihrem 
Fachhändler. Er weiß sehr gut, wie man Apfel 
von Birnen unterscheidet und wird Ihnen schon 
deshalb gerne alles Gute über die Drucker von 











OKIDATA erzählen. 
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10 Jahre Apple 


Man glaubt es kaum, aber vor exakt zehn 
Jahren wurde der erste Apple konzipiert. 
Wie Sie in der Mikrocomputer-Chronik in 
diesem Peeker nachlesen können, begann 
Steve Wozniak Ende 1975 mit der Kon- 
struktion des später als „Apple I“ bezeich- 
neten Bausatzes, der ab März 1976 erhält- 
lich war. Nach der Gründung der Firma 
Apple im April 1976 ging es im Herbst mit 
der Entwicklung des „Apple Il“ weiter, der 
im April 1977 auf den Markt kam. In 
Deutschland dürften die ersten Apple-Il- 
Geräte allerdings erst ab Mitte 1978 erhält- 
lich gewesen sein. 

Aus Anlaß dieses zehnjährigen Jubiläums 
suchen wir im deutschsprachigen Raum 
die ältesten Apple-Il-Geräte. Wer besitzt 
noch einen möglichst funktionsfähigen 
Apple aus dem Jahre 1978 oder 1979 und 
schickt uns ein Foto mit einigen Anmer- 
kungen zu technischen Besonderheiten? 
Wenn Sie nicht sicher sind, ob Sie Besit- 
zer eines der ältesten Geräte sind, so tei- 
len Sie uns bitte telefonisch (Tel. 06221 / 
489352) oder per Postkarte das ungefäh- 
re Kaufdatum und/oder die Gerätenummer 
mit. Wir freuen uns auf eine rege Beteili- 


gung. 


Kurzumfrage 


Nach der Auswertung unserer Kurzumfra- 
ge aus dem September-Heft hat sich die 
prozentuale Geräte-Verteilung kaum ver- 
schoben. Lediglich der relative Anteil der 
Apple-Ilc-Besitzer hat merklich zugenom- 
men. Die Zahl der Macintosh-Besitzer ist 
jedoch immer noch sehr klein. Dies bekam 
auch die Zeitschrift „Apple’s“ zu spüren, 
die dem Macintosh einen sehr großen 
Raum widmete und nunmehr zum Jahres- 
ende ihr periodisches Erscheinen ein- 
stellte. 
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Interessant ist in diesem Zusammenhang 
auch die „Bewegungsstatistik“: Soweit 
die Kurzumfrage eine Generalisierung zu- 
läßt, scheinen ehemalige Apple-Il-Besitzer 
eher zu einem IBM-PC denn zu einem 
Macintosh zu tendieren. Der Grund ist evi- 
dent: Der Apple-Il-Markt wird nicht nur in 
bezug auf die Macintosh-Werbung, son- 
dern auch in bezug auf die Zusatzprodukte 
zum Apple Il selbst völlig ausgespart. Man 
muß sich allen Ernstes fragen, wie man ei- 
gentlich diese Erweiterungen zu verkaufen 
gedenkt, wenn nicht einmal auf deren Exi- 
stenz hingewiesen wird. Die Zeiten von 
1976, als sich die ersten Freaks noch 
„selbst geworben“ haben, sind mit Ge- 
wißheit vorbei. 


Neue Rubriken 


Auch wenn der Peeker im nächsten Jahr 
das bewährte redaktionelle Konzept in be- 
zug auf die Fachaufsätze beibehalten wird, 
werden wir in Zukunft den Anfänger mehr 
berücksichtigen. Die neue Rubrik „Trai- 
ning“ wird Anfängerübungen zu verschie- 
denen Bereichen bringen, während in der 
neuen Rubrik „Grundlagen“ komplizierte- 
re Grundlagenthemen didaktisch aufberei- 
tet werden. Für das uJanuar-Heft ist 
beispielsweise eine sehr anschauliche 
Darstellung zum Thema „Wie funktioniert 
Quicksort?“ vorgesehen, während im 
Februar-Heft das „Binäre Rechnen mit 
Papier und Bleistift“ in einer leicht nach- 
vollziehbaren Art behandelt wird. 


hun ihn 


Ulrich Stiehl 


nn 


near a 
ER FRE Ba 








Impressum Verleger und Herausgeber: Anzeigenleitung: 

Peeker Dipl.-Kfm. Holger Hüthig Jürgen Maurer, Tel. (06221) 489218 
Magazin für Apple-Computer Geschäftsführung Zeitschriften: z. Zt. gilt Anzeigenpreisliste Nr. 3 

2. Jahrgang 1985 Heinz Melcher Vertriebsleitung: 

ISSN 0176-9200 Chefredakteur: Walter Menzel, Tel. (06221) 489280 
© für den gesamten Inhalt Ulrich Stiehl (us) Tel. (06221) 489231 Produktionsleitung: Gunter Sokollek 
einschließlich der Programme (Bitte nur in redaktionellen Angelegenheiten Gestaltung: Rainer Schmitt 


| Dr. Alfred Hüthig Verlag, anrufen) 
PUBLIKATION Heidelberg 1985 


DEEI 





Hobby 


Cosmo-Crumble 





CP/M-56K-RAM-Disk 
unter Turbo-Pascal 


«ER 


Heft 12/1985 











von Bernd Eichinger-Wieschmann 62 
Ein Weltraum-Action-Spiel I 
von Oliver Steinmeier und 
Alexander Niemeyer 6 
Kurzberichte 
Drucker Kleine Mikrocomputer-Chronik 
Ä + 1964 — 1985 
2 ee zusammengestellt von Ulrich Stiehl 62 
kurz und bündig 
Die wichtigsten Steuerbefehle 
von Thorsten Schunk 8 
Leserbriefe 
Grafik Pascal-Leserbriefe 68 
ASCII-Texte im HGR-Bildschirm 
Mit einem Zeichengenerator-Programm 
von Markus Geltenpoth 16 Testberichte 
MS-Basic 2.0 
getestet von Pit Capitain 76 
Komfortabler INPUT von Strings 
von Ulrich KuBmann 20 Kyan-Pascal #7 
Tabelle der wichtigsten 
Applesoft-Interpreter-Routinen 
von Harald Grumser 30 \esschladenss 
| Richtlinien für Autoren 61 
Pascal 
Jahresinhaltsverzeichnis 
Pascal-Kompaktkurs Peeker 1/1984 bis 12/1985 72 
UCSD- und Turbo-Pascal 
Teil 1: 
Grundlagen für Applesoft-Programmierer 
von Ulrich Stiehl 33 Inserentenverzeichnis 78 
Verlag: Erscheinungsweise: 12 Hefte jährlich, Zahlungen: an den Dr. Alfred Hüthig Verlag Bankkonten: Landeszentralbank Heidel- 
Dr. Alfred Hüthig Verlag GmbH _ Erscheinungstag jeweils 1 Woche vor Monatsbeginn. GmbH, D-6900 Heidelberg 1: Postscheck- berg 67 207 341; BLZ 67200000; Deutsche 
Im Weiher 10, Postfach 102869 Jahresabonnement DM 72,-, einschließlich MwSt, konten: BRD: Karlsruhe 485 45-753; Bank Heidelberg 02165041; BLZ 
6900 Heidelberg im Inland portofrei. Einzelheft DM 6,50 Österreich: Wien 7555888; Schweiz: Basel 672 70003; Bezirkssparkasse Heidelberg 
Telefon (06221) 489-1 Vertrieb Handel: 40-24417; Niederlande: Den Haag 145728; 204 51, BLZ 67250020. 


Telex 4-6 1727 hued d. 
Breslauer Str. 5, Postfach 1123, 
8057 Eching b. München, 


Tel. 089/3191067, Telex 0522 656 


MZV —- Moderner Zeitschriften Vertrieb GmbH 


Italien: Mailand 47718; Belgien: 

Brüssel 723026; Dänemark: Kopenhagen 
349 69; Norwegen: Oslo 994 24; 
Schweden: Stockholm 5477 76-5 


Herstellung: Heidelberger Verlagsanstalt 
Printed in Germany 





Cosmo-Crumble 





r 


PETE ., @s 
”’ % 


ie 


ion-Sp 








ee ee N a dr 
4 


00 Je 
/ ‚o 


Ki He BE BE u SE Eee “a rec 





».»- 
.- on ke»? 


Ein Weltraum-Act 


von Oliver Steinmeier und Alexander 
Niemeyer 
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Rechtzeitig zu Weihnachten bringen 
wir wieder ein Action-Spiel für jung und 
alt (vgl. auch „Pyramid Pitty“ von 
Peeker 7/85). Das neue Spiel „Cosmo- 
Crumble“ der Autoren O. Steinmeier 
und A. Niemeyer befindet sich wegen 
der ungewöhnlichen Länge — wie sei- 
nerzeit „Pyramid Pitty“ — nur auf der 
Peeker-Sammeldisk, denn 10 Seiten 
Hex-Dumps können wir keinem Peeker- 
Leser zum Abtippen zumuten. 

Nach dem Booten von DOS 3.3 (oder 
besser Diversi-DOS) wird das Action- 
Spiel mit 

RUN COSMO CRUMBLE 

gestartet. Die Diskette muß danach 
noch im Laufwerk bleiben, weil aus 
speichertechnischen Gründen ver- 
schiedene Module nachgeladen 
werden. 


1. Die Spielidee 


Sie befinden sich auf einem kosmischen 
Schlachtfeld und sind in einen Hinterhalt 
der Cosmo-Crumbles geraten, die Sie auf 
zwei verschiedene Arten gleichzeitig at- 
tackieren: 

Die Bouncer versuchen in kamikaze-ähn- 
licher Manier Ihren mit einer Schnellfeuer- 
Laserkanone ausgerüsteten Raumkreuzer 
zu zerstören. Glücklicherweise sind sie 
unbewaffnet und somit nur bei Zusam- 
menstößen gefährlich. 

Der Hurrier hat sich eine sicherere Posi- 
tion ausgesucht. Er läuft unterhalb des 
Schlachtfeldes und schießt mit seiner 
Bordkanone quer über das ganze Feld. 
Dabei kann es vorkommen, daß der Hur- 
rier einen Bouncer trifft. Die Überreste des 
Bouncers verglühen langsam und hinter- 
lassen, wenn Sie sie nicht vorher abschie- 
Ben, ein gefährliches „Loch“ im Schlacht- 
feld, das von nichts durchdrungen werden 
Kann. 

Ihre Aufgabe ist es, sämtliche Bouncers zu 
zerstören. Haben Sie eine Ebene bewäl- 
tigt, so erwartet Sie sofort eine neue Crum- 
ble-Raumflotte in der nächsten Spiel- 
ebene. Leider sind die Cosmo-Crumbles 
sehr gute Kämpfer. Es passiert praktisch 
nie, daß sich einige Bouncers kampflos 
ergeben und man die nächste Ebene er- 
reicht, ohne sämtliche Gegner zu zer- 
stören. 

Ihr Raumgleiter wird durch Treffer des 
Hurriers, Zuammenstöße mit Bouncers 
sowie Berührungen mit „Löchern“ und 
verglühten Resten beschädigt, so daß Sie 
und Ihr Schiff zwecks „Reparatur“ von 
einem kosmischen Krankenwagen abge- 
holt werden müssen. Nach fünf Aufenthal- 
te im Krankenhaus wird Ihr Raumschiff 
verschrottet, und die Schlacht ist beendet. 
Für jeden abgeschossenen Bouncer er- 
halten Sie 100 Punkte, für jede Spielebene 
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einen mit dem Schwierigkeitsgrad anstei- 
genden Punkte-Bonus von mindestens 
200 Punkten. 

Ein Bonus-Schiff erhält man nach 10.000 
Punkten, ebenso nach 20.000, 30.000 


USW. 
Das Spiel selbst hat 25 Ebenen, die aus 
unterschiedlichen Formationen mit stei- 
gender Schwierigkeit aufgebaut sind. Falls 
man alle 25 Levels bewältigt, beginnt das 
Spiel erneut mit Ebene 1, jedoch mit stark 
gesteigerter Geschwindigkeit. 


2. Das Titelbild 


Mit der Taste T (großes T) können Sie sich 
die TOP-FIVE-Highscore-Tabelle anse- 
hen. Nach einem Tastendruck kehren Sie 
zum Titelbild zurück. Wenn Sie die Taste H 
(Help) drücken, erscheint die erste Seite 
der sogenannten Help-Screens. Diese In- 
formationsseiten informieren Sie über 
wichtige Tasten und Funktionen des 
Spiels, um Ihnen das Nachschlagen in die- 
sem Aufsatz zu ersparen, wenn Sie einmal 
eine Funktion vergessen haben sollten. 
Mit der Leertaste (Space) können Sie sich 
die weiteren Seiten anschauen. Nach der 
letzten Seite kehren Sie automatisch zum 
Titelbild zurück. 


3. Definieren der Steuerungstasten 


Wenn Sie Cosmo-Crumble mit der Apple- 
Tastatur spielen wollen, können Sie vor 
dem Spiel die Tastenfunktionen selbst be- 
legen. Drücken Sie, wenn das Titelbild auf 
dem Bildschirm erscheint, die Taste K. 
Nun können Sie die Steuerungstasten für 
oben, unten, rechts, links, Feuer und 
Stopp selbst definieren. Nach der letzten 
Taste kehren Sie zum Titelbild zurück. 


4. Spielbeginn 


Um das Spiel zu starten, gibt es verschie- 
dene Möglichkeiten. Wenn Sie mit der Ta- 
statur spielen wollen, sollten Sie zunächst 
die Tastenbelegung wählen. Nach dem 
Einladen von COSMO CRUMBLE sind fol- 
gende Tasten vordefiniert: 

F-Feuer, 

I - aufwärts, 

J- links, 

K-- rechts, 

M - abwärts, 

Leertaste - anhalten. 

Um das eigentliche Spiel zu starten, wäh- 
len Sie nun eine der folgenden Möglich- 
keiten: 

1. Leertaste: Das Spiel beginnt, gespielt 
wird mit der Steuerungseinheit, die zuletzt 
verwendet wurde (nach Programmstart 
stets die Tastatur). 

2. Ctrl-J: Das Spiel beginnt, es wird je- 
doch automatisch auf Joystick umgestellt. 


4 hobby 94 


3. Ctrl-K: Nach der Umstellung auf Tasta- 
tur (Keyboard) beginnt auch hier das Spiel. 


5. Möglichkeiten während 
des Spiels 


Natürlich kann man auch während des 
Spiels von Joystick- auf Tastatursteuerung 
und umgekehrt umschalten (wieder mit 
Ctrl-J und Ctri-K). 

Mit der Taste ESC kann das gesamte Spiel 
angehalten werden. Nach Drücken einer 
weiteren Taste wird das Spiel fortgesetzt. 
Mit Ctrl-S kann man die Tonausgabe 
(Sound) ein- und ausschalten, und mit 
Ctri-R wird das Spiel beendet. 


6. Spiel mit Joystick 


Wenn man im Joystick-Modus spielt, kann 
man mit Pushbutton O0 einen Schuß ab- 
feuern. Mit Pushbutton 1 kann wie mit 
ESC das Spiel unterbrochen werden. 


7. Spiel-Ende und 
Highscore-Tabelle 


Nach dem Spiel-Ende erscheint auf dem 
Bildschirm „GAME OVER“. Nach Return 
oder Drücken von Pushbutton 1 wird die 
Highscore-Tabelle geladen und angezeigt. 
Die Highscore-Tabelle enthält die fünf bis- 
her besten Ergebnisse und die Namen der 
Spieler. 

Die Eingabe erfolgt stets mit der Tastatur. 
Bei Eingabefehlern kann mit Hilfe der 
ESC-Taste die gesamte Eingabe wieder- 
holt werden. Nach dem letzten der 10 
Zeichen wird die Eingabe in die High- 
score-Liste aufgenommen und auf Disket- 
te abgespeichert (CC.LEVELS). 

Deshalb müssen Sie sich das Spiel von 
der Peeker-Sammeldisk auf eine eigene 
Diskette kopieren oder den Schreibschutz 
entfernen. 

Nach Tastendruck kehrt man zum Titelbild 
zurück, und ein neues Spiel kann be- 
ginnen. 


Kurzhinweise 


1. Zweck: 

Reaktionsspiel für Tastatur oder Joystick. 
2. Konfiguration: ° 

Apple II+, Ile oder IIc (wahlweise Joy- 
stick); DOS 3.3. 

3. Test: 

RUN COSMO CRUMBLE 

4. Sammeldisk: 

COSMO CRUMBLE 
(Applesoft-Startprogramm) 

T. CC2 - T.CC6 

T.CC8 

(Big-Mac-Quelltexte) 

CC2 - CC8 

GE,LEEVEL®S 

(Maschinenprogramme und Tabellen) 











Imagewriter 
kurz und bündig 





Die wichtigsten Steuerbefehle 


von Thorsten Schunk 
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Auf den folgenden Seiten sollen der 
Grund-Befehlssatz des Imagewriter-Druk- 
kers vorgestellt und Fehler des Handbu- 
ches berichtigt werden. Der Artikel be- 
schreibt ein Programm, das es ermöglicht, 
dem Drucker Kommandos zu übermitteln. 
Alles hier Aufgeführte gilt wahrscheinlich 
auch für den Scribe-Drucker, wenn eine 
Super-Serial-Card verwendet wird. Man 
sollte sich nicht wundern, daß in diesem 
Artikel zum Teil etwas völlig anderes als im 
Handbuch steht, aber leider scheint sich 
der Verfasser des Handbuches nicht ge- 
nug mit diesem Drucker beschäftigt zu 
haben. 


1. Anfängerübungen 


Wenn Sie nur geringe Vorkenntnisse ha- 
ben, so sollten Sie zunächst die folgenden 
Übungen Schritt für Schritt nachvoll- 
ziehen: 

1) Booten Sie mit PR#6 eine beliebige 
DOS-3.3-Systemdiskette, z.B. die Sy- 
stem-Master-Diskette. 

2) Nun befinden Sie sich im Applesoft- 
Modus. Legen Sie nun die Peeker-Sam- 
meldisk #12 ein und starten Sie das Image- 
writer-Demo, indem Sie 

RUN IW.DEMO 

(gefolgt von Return) eingeben. 

3) Es erscheint nun ein kurzer Erläute- 
rungstext, den Sie zunächst durch Tippen 
einer beliebigen Taste ignorieren können. 
Nun sehen Sie ein Menü mit 3 Optionen: 
1: Steuer-Sequenz eingeben 

2: Steuer-Sequenz speichern 

3: Ende 

4) Schalten Sie nun den Imagewriter ein 
(Power-Lämpchen muß leuchten). 

5) Tippen Sie „1“ für Steuer-Sequenz ein- 
geben. Es erscheint die Zeile „DRUK- 
KER:“. Sie sehen jedoch jetzt keinen blin- 
kenden Cursor, denn jedes Zeichen, das 
Sie nach „DRUCKER:“ tippen, wird als 
Dezimalzahl und nicht als sichtbares Zei- 
chen angezeigt. Tippen Sie nun erstens 
auf die ESC-Taste und danach zweitens 
auf die n-Taste. Nun müßten Sie am Bild- 
schirm die zwei Dezimalzahlen „27, 110“ 
sehen. Wenn dies der Fall ist, so schließen 
Sie die Eingabe durch gleichzeitiges Drük- 
ken auf die Offene Apfeltaste und die Re- 
turn-Taste ab. Wenn Sie sich vertippt ha- 
ben, können Sie durch Drücken auf die 
Del-Taste die jeweils letzte Dezimalzahl 
löschen. 

Nach dem Betätigen von Offener-Apfel- 
Return „ruckt“ der Imagewriter, d.h. er hat 
die Zeichenfolge „ESC n“, die für „weiten 
Zeichenabstand“ steht, empfangen und 
„sich bis auf Widerruf gemerkt“. Gleich- 
zeitig sind Sie wieder im Hauptmenü mit 
„1 Steuer-Sequenz eingeben“ usw. ge- 
landet. 
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und dann 


6) Tippen Sie nur wieder „1“ 
einige beliebige „normale“ Buchstaben, 
z.B. „AAAAA“. Danach wiederum Offe- 
ner-Apfel-Return. Merken Sie sich bitte 
diesen Zyklus. Nachdem Sie „AAAAA“ 
getippt haben, druckt der Imagewriter 
„AAAAA“ in „weitem Zeichenabstand“. 
7) Geben Sie nun in einem erneuten Zy- 
klus die Steuer-Sequenz „ESC N“ ein, 
dann wieder z.B. „AAAAA“, und Sie wer- 
den sehen, daß „AAAAA“ jetzt im „nor- 
malen Pica-Abstand“ gedruckt wird. 

8) Wiederholen Sie den Zyklus mit „ESCZ 
Ctrl-G Ctrl-$“ und dann mit „AÖU“. Für 
„ESC“ tippen Sie auf die ESC-Taste, für 
„Z" auf die Z-Taste, für Otrl-G auf die Otrl- 
Taste und G-Taste gleichzeitig, für Otrl-8 
auf die COtrl- und $-Taste (Shift-Taste + 3- 
Taste). Nach „ÄAÖU“ werden Sie statt 
„AÖU“ die amerikanischen Zeichen 
„[|]“ sehen, d.h. Sie haben mit „ESC Z 
Otrl-G Ctrl-$“ auf den amerikanischen 
Zeichensatz umgeschaltet. 

9) Wiederholen Sie den Ihnen nunmehr 
bereits bekannten Zyklus mit „ESC D Ctrl- 
8 Ctrl-A“, gefolgt von „OO0O00“. Sie wer- 
den sehen, daß die Nullen von „OO000“ 
jetzt durchgestrichen sind. 

10) Zurück im Hauptmenü, legen Sie jetzt 
eine eigene Diskette ein und wählen Sie 
statt „I“ die Option „2“ für „Steuer-Se- 
quenz speichern“. Danach wird das Dis- 
ketteninhaltsverzeichnis angezeigt, und 
Sie geben der Datei den Namen „NULL- 
STRICH“, 

11) Verlassen Sie jetzt das Programm über 
„3 Ende“, schalten Sie den Drucker aus 
und wieder ein, und starten Sie die Datei 
NULLSTRICH mit 

BRUN NULLSTRICH. 

Schalten Sie den Drucker mit PR#1 ein 
und tippen Sie 

PRINT „10000“ 

Sie werden sehen, daß die Nullen jetzt 
durchgestrichen werden. 


Was lernen wir aus diesen Übungen? Mit 
IW.DEMO können Sie beliebige Steuer- 
Sequenzen für den Imagewriter auspro- 
bieren und als mit BRUN startfähige Initia- 
lisierungsprogramme auf der Diskette 
speichern. Ein solches Programm enthält 
jedoch immer nur die zuletzt eingegebene 
Steuer-Sequenz. Sie können jedoch ins- 
gesamt max. 170 Steuerzeichen hinterein- 
ander eingeben, was für alle praktischen 
Fälle ausreicht. Die Steuerzeichen selbst 
können Sie der Tabelle entnehmen. Mer- 
ken Sie sich bitte, daß eine Steuer-Se- 
quenz so lange vom Imagewriter „befolgt“ 
wird, bis Sie einen gegenteiligen Befehl 
erteilen oder den Drucker ausschalten. 
Falls fremde (und meist geschützte) An- 
wenderprogramme keinen „reinen Tisch“ 
machen, bleiben die mit IW.DEMO initiali- 
sierten Werte bestehen. 
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2. Technisches zur Tabelle 


Wie im Handbuch erwähnt wird, gibt es 
zwei Arten von Ctrl-Codes: Steuerzeichen 
und Steuer-Sequenzen. Letztere sind Zei- 
chenfolgen, die meist mit Escape (ESC) 
beginnen, wobei die Resetfunktion eine 
besondere Stellung einnimmt: Sie stellt 
alle Standardeinstellungen, also den Ein- 
schaltzustand, wieder her. Sie sollte nicht 
in eine Kommandofolge eingebaut wer- 
den. Wenn dies aber unvermeidbar 
scheint, ist ihr ein Nullstring anzufügen, da 
sonst Schwierigkeiten auftreten könnten. 
Steuer-Sequenzen, die mit ESC D oder 
ESC Z beginnen, sind „Schalterfunktio- 
nen”; für einige können statt dessen die 
entsprechenden DIP-Schalter im Image- 
writer selbst eingestellt werden. 

Der Übersicht und Kürze wegen werden 
die Kommandos im folgenden stichpunkt- 
artig behandelt und in einer Tabelle zu- 
sammengefaßt: 


Seitenlänge: Seltsamerweise steht selbst 
im deutschen Handbuch eine Standard- 
einstellung für 66 Zeilen je Seite, was der 
amerikanischen Norm entspricht. Um mit 
DIN-Papier klarzukommen, sollte der 
Drucker jedoch auf 72 Zeilen je Seite ein- 
gestellt werden (SW 1-4). 


Zeilenabstand: Der Abstand aufeinander- 
folgender Zeilen kann in Schritten von 
144stel Zoll eingestellt werden. Zwei Stan- 
dard-Abstände sind als ESC-Sequenzen 
verfügbar. Mit dem Zeilenabstand ändert 
man auch die Blattlänge. Nur für 6 Zeilen/ 
Zoll ergibt sich eine Normlänge. 


Zeilenvorschub (LF): Die durch Befehl 
eingestellte LF-Richtung bleibt zwar bis 
zum gegenteiligen Kommando bestehen, 
gilt aber — im Gegensatz zu Änderungen 
beim Zeilenabstand für FF — nicht für die 
LF-Taste. Übrigens wird das Kommando 
für automatischen Zeilenvorschub nur an- 
erkannt, wenn vorher der Drucker mit ent- 
sprechendem Code für High-ASCII (8-Bit- 
Code) vorbereitet wird, sonst passiert 
nichts. Nachher sollte man nicht verges- 
sen, ihn wieder auf 7 Bits zurückzustellen. 


Wagenrücklauf (CR): Das Zeichen für 
Wagenrücklauf ist normalerweise nicht 
nur, wie im Handbuch behauptet, Carriage 
Return (CR), sondern es werden auch LF, 
VT und FF als Wagenrücklauf behandelt. 
Schaltet man auf den anderen Modus, so 
werden LF, VT und FF innerhalb eines 
Textes ignoriert. 


Puffer-Überlauf: Hierbei ist nicht der Zwi- 
schenpuffer des Druckers gemeint, son- 
dern der Zeilenpuffer. Man kann damit das 
Verhalten des Druckers am Anschlag (Zei- 
lenende) einstellen. LF bei Pufferüberlauf 
bedeutet, daß er einen Zeilenvorschub 
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ausführt. Anders als im Handbuch be- 
schrieben, tut er dies nicht automatisch. 
Wählt man einen Zeichenabstand, der we- 
niger Zeichen in einer Zeile erlaubt, als die 
Druckerkarte zuläßt, so überschreibt der 
Drucker einen Teil der Zeile. 


Nullen mit Schrägstrich: Der im Hand- 
buch angegebene Code schaltet den ita- 
lienischen oder französischen Zeichen- 
satz ein. In der Tabelle ist das berichtigte 
Kommando aufgelistet. 


Rückschritt (BS): Es ist immer nur ein 
Rückschritt erlaubt, dem ein druckbares 
Zeichen, also kein Ctrl-Zeichen, folgen 
muß. 


Da es zu weit führen würde, alle Fehler zu 
besprechen, sollte man die Kommandos 
(auch den dezimalen und hexadezimalen 
Code) im Handbuch vor der Benutzung 
mit der Tabelle vergleichen, die hoffentlich 
nunmehr richtig ist. 


Eine Übermittelung der Kommandos an 
den Drucker mit PRINT in Applesoft erfolgt 
oft fehlerhaft, da der String verschlungene 
Wege zurücklegen muß. Enthält ein String 
Ctrl-D, so fühlt sich DOS oder ProDOS 
angesprochen und „raubt“ alle Zeichen 
bis zum nächsten CR. Die Interface-Karte 
läßt ebenfalls einige Zeichen nicht passie- 
ren. Aus diesen und anderen Gründen ist 
es ratsam, Befehlssequenzen nicht auf 
dem üblichen Weg zu senden. Eine Mög- 
lichkeit bietet das Programm IW.DEMO, 
das schon oben in vereinfachter Form er- 
läutert wurde. 


3. Technisches zu IW.DEMO 


Das Programm enthält drei Unterprogram- 
me, die selbständige kleine Programme 
sind. 


Die Identifikationsroutine (Zeilen 
63000-63220) ermittelt die Gerätekonfigu- 
ration, und damit paßt sich das Programm 
der Hardware, auf der es gestartet wurde, 
an. So können alle Besonderheiten des 
spezifischen Rechners ausgenutzt wer- 
den, wobei man allerdings auf dem Apple 
II oder II+ leider auf einige Optionen ver- 
zichten muß. Die erstellten, BRUN-fähigen 
Steuercode-Dateien sind dadurch eben- 
falls hardwarespezifisch, d.h. sie funktio- 
nieren meist nur auf der Rechnerkonfigu- 
ration, auf der sie erstellt wurden. 


Die Input-Routine (Zeilen 12000-122100) 
erlaubt jede Eingabe. Auf neueren Apples 
sind auch Low- und High-ASCII möglich. 
Auf dem Bildschirm werden die dezimalen 
ASCII-Werte angezeigt. Es wurde weniger 
Wert auf gute Editiermöglichkeiten gelegt 
als darauf, daß alle Zeichen akzeptiert 
werden. 
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Die Output-Routine (Zeilen 13000- 
13240) sendet Kommando-Strings direkt 
an den Drucker. Natürlich kann man auch 
Text senden. Ihr Vorteil ist, daß andere 
Karten eingeschaltet bleiben können. Da 
normalerweise nach dem String CR und 
LF gesendet werden, fügt die Routine die- 
se an. Ist das nicht erwünscht, kann der 
zusätzliche Einsprungpunkt (Zeile 13060) 
verwendet werden. Außer auf dem Apple 
IIc wird aus technischen Gründen vor je- 
dem String ein Nullstring übertragen. Stellt 
man Kommando-Sequenzen auf, ist zu 
beachten, daß Applesoft beim Addieren 
von Strings leere Anführungszeichen (““) 
nicht beachtet. Als Nullstring sollte man 
CHR$(0) benutzen. 


Die Input-Routine ist als T.IW.IN und die 
Output-Routine als T.IW.OUT zusätzlich 
im Assembler-Quelltext gelistet, doch sind 
die Maschinenprogramme entbehrlich, 
weil sie vom Applesoft-Programm IW.DE- 
MO automatisch gepokt werden. Die 
BRUN-fähige Steuer-Sequenz-Datei, die 
mit IW.DEMO erzeugt wird, liegt im Be- 
reich $0300 bis maximal $03CF. 
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Ulrich Stiehll Programmbeispielen 


Apple ProDOS für 
Aufsteiger 
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von Ulrich Stiehl 


Dr. Alfred Hüthig Verlag 
Postf. 102869 - 6900 Heidelberg 





Kurzhinweise 


1. Zweck: 
Initialisierung des Imagewriters durch mit 
IW.DEMO  generierbare, BRUN-fähige 
Steuer-Sequenz-Programme. 

2. Konfiguration: 

Apple Ile und Ilc (auch Il+, jedoch mit 
gewissen Einschränkungen wegen der Ta- 
statur); Imagewriter, bei Ile/+ mit Super- 
Serial-Card; DOS 3.3 oder ProDOS 

4. Test: 

RUN IW.DEMO 

4. Sammeldisk: 

IW.DEMO 

Applesoft-Programm 

T.IW.IN 

IW.IN 

T.IW.OUT 

IW.OUT 

(Big-Mac-Quell- und Objektdateien zu den 
gepokten Routinen) 

ECHO 

(Mit RUN ECHO starten zum Erzeugen 
eines 40-Z/Z-Bildschirmechos während 
des Druckens) 
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Apple ist ein eingetragenes Warenzeichen der Firma Apple Computer Corp. 





Apple Ile Compatible 


jetzt mit 80 Zeichen Karte und 128 KB RAM 














Technische Beschreibungen der Geräte siehe Testbericht „Peeker 10/85“ 


Neben bestem Fachservice bieten wir Ihnen ebenfalls 
Apple Ile + Il+ Interface Karten + Zubehör in bester High-Tech Qualität. 


Händleranfragen erwünscht unter Tel. 02191/50041 


Es beraten Sie gerne Ihre Fachhändler: 


Electronic-Shop 

Friedhelm Mayer 

1000 Berlin 10, Spielhagenstraße 10 
® 030 / 34221 56 


Menkens Elektronik 


Ulrich Menkens 
2870 Delmenhorst, Grünestraße 70 
®& 04221 / 1459] 


Holzinger Elektronik 
4000 Düsseldorf, Kölner Straße 16-18 
® 0211 / 353969 


Electronic Shop Chr. Kaup 
4400 Münster, Bremer Platz 42-46 
®& 025] / 665887 


Müller — Elektronik 
4410 Warendorf, Freckenhorster Straße 31 
= 02581 / 1767 


Gelsen Electronic 
4650 Gelsenkirchen, 
Kurt-Schumacher-Straße 124 
= 0209 / 83033 
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Heitmann Elektronik 
4750 Unna, Gerhard-Hauptmann-Straße 20 
202303 / 12436 


Computer-Technik 

P. Schillhofer 

4905 Spenge, Niedernstraße 12 
= 05225 / 3184 


Sebus-Elektronik 
5100 Aachen, Pontstraße 119 
=& 02 41 / 36898 


Räbiger Computersysteme 
5160 Düren, Veldener Straße 65 
202421 / 43877 


VID DATA SYSTEME 
WEISING KG 

5483 Bad Neuenahr - Postf. 933 
® 02641 / 1478 


MiCom-Computer Olaf Mertens 
5630 Remscheid 11, 

Grünenplatzstraße 16-18 

= 02191/590313 


MicroComp GmbH 
6200 Wiesbaden, Klarentaler Str. 6 
= 06121/45377 


Dontenwill GmbH 
7000 Stuttgart 1, Kronprinzenstraße 6 
= 07117/294665 


electronic + computer 
GRIGENTIN + FALK 
7580 Bühl, Hauptstraße 17, 
07223/21170 


Dontenwill GmbH 
8000 München 2, Landwehrstraße 40 
= 089 / 597993 


Thönnes Elektronik 
8000 München 70 
Fürstenrieder Straße 206 

= 089 / 7148285 


Computerstudio Landshut 
8300 Landshut, Bismarckplatz 18 
= 0871/28275 


ALPHATRON 


marco hildebrandt 
8520 Erlangen - Luitpoldstraße 22 
209131 / 22600 
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Tabelle der Steuerbefehle Zeichen Wiederhol.! ESC R xxx c ! 27,82,nnn,c 
(xxx mal c) ! ! (1B,52,hhh,c) 

X: Control-X 
* : Normaleinstellung nach dem Einschalten (Spalte N) Rückschritt I #H I 8 (98) 

: dezimale Ziffer (z.B. xxx = 132) (nur einfach) 

: dez. ASCII von x (z.B. -> nnn = 49,51,5ß) 

: hex. ASCII von x (z.B. -> hhh = 31,33,32) 

: Zeichen und ASCII (z.B. A -> dez. 65 bzw. $4l) Schreibrichtung 


Beschreibung ! Tasten ! Dezimal (Hexadezimal) 
EEE EEE DEREN AEEIEEEREHEERETETEEETETEE [mm —— Links nach rechts |! ! 27,62 (1B,3E) 
Zeichenabstand (Zeichen pro Inch) SW 1-6,1-7° DO Beide Richtungen |! | 27,60 (1B,3C) 


Weit (9) 
Pica (19) ESC 27, 78 (1B,4E) Zeilenabstand 
Elite (12) ESC 27, 69 (1B,45) 


! ESC | 
! | 
! | 
Halbeng (13.4) ! ESC ! 27,11 (1B,65) 
| | 
| | 


27,110 (1B,6E) 


Eng (15) ESC 27,113 (1B,7l) 6 Zeilen pro Inch ! | 27,65 (1B,41) 
Sehr eng (17) ESC 27, 81 (1B,51) 8 Zeilen pro Inch ! ! 27,66 (1B,42) 

! ! ! 
Proportionalschrift -—————— |-———___-__________ _ Abstand (xx/144)" | ! 27,84,nn (1B,54,hh) 24 
(xx = 1 - 99) 
Pica prop. ! ESC p I 27,112 (1B,7) 
(144 Pkt.p.Inch) ! 
Elite prop. | ESC P ! 27, 80 (1B,5ß) Zeilenvorschub 
(160 Pkt.p.Inch) ! | 
| LF (Line Feed) |! I 10 (BA) 
VT (Vertical Tab)! ' 11 (@B) 


FF (Form Feed) ! ! 12 (BC) 


Abstand d. Zeichen! ESC s x I 27,115,n (1B,73,h) 
(x=9-39) ! ! 
! 
zusätzl. Abstand |! I 27,n (1B,h) 
d.Zeich.in Elite ! | 
(x=1-6) ! ! 


Fremdsprachliche Zeichensätze SW 1-1,1-2,1-3 


Mehr fach-LF 
(x=1- (15) 
s.Handbuch) 


Sl,n (1F,h) 


Amerikanisch ESC Z 1G 1$ ! 27,90,7,8 (1B,54A,97,99) vorwärts 


oder | rückwärts | 
ESC Z TE 18 ! 27,90,5,0,27,68,2,® 
ESC D 1B 18 ! (1B,54,05,00,1B,44,02,9®) Auto.LF nach CR |! SW 1-8 

| ein ! D ($) 18! 27,68,128,® (1B,44,89,0®) 
ESC Z tD 8 ! 27,90,4,0,27,68,3,® aus |! z ($) 18! 27,90,128,0 (1B,54A,89,99) 
ESC D fc 18 ! (1B,54,04,00,1B,44,93,9®) 


27,102 (1B,66) 


! 
! 
! 
! ! 
LF-Richtung ! ! 
| 
27,114 118,72) 
! 
! 


Britisch 
Auto.CR ein |! 1 ! 27,108,48 (1B,6C,3®) * 
Deutsch 1 


ESC Z 1c 1$ ! 27,90,3,0,27,68,4,® nach LF aus |! l ! 27,108,49 (1B,6C,31) 
ESC D !D 18 ! (1B,54,03,00,1B,44,04,09) 


Französisch ESC Z 1A 1$ ! 27,990,1,0,27,68,6,9 Randeinstellung 


ESC D fF 18 ! (1B,5A,81,090,1B,44,96,9®) 


ESC 2 1B 18 ! 27,99,2,0,27,68,5,0 Momentane Position! | 27,118 (18,76) 
ESC D fE 18 ! (1B,54,02,00,1B,44,05,09) BE DEREN a ° 


Schwedisch 


ESC Z IF 18 ! 27,90,6,0,27,68,1,® Linken Rand auf ! 27,76,nnn (1B,4C,hhh) 


| 
ESC D tA 18 ! (1B,54,06,00,1B,44,01,0P) Zeichenposition |! 
xxx setzen ! 


Italienisch 


ESC D 1G 18& ! 27,68,7,0 (1B,44,97,09) 
Nullen mit Schrägstrich m Zeilenabschluß 


Spanisch 


mit Schrägstr.(®)! ESC D 1$ A ! 27,68,0,1 (1B,44,99,®1) Zeilenende ! ! 
ohne Schrägstr.(0)! ESC Z 18 TA ! 27,90,0,1 (1B,54,99,01) nur bei CR | ! 27,90,64, 
bei CR,LF,VT,FF ! I 27,68, 


(1B,5A,49,09) 
(1B,44,49,00)x* 


Text hervorheben 


Unterstreichen ein! ! 27,88 (1B,58) 
aus! ! 27,89 (1B,59) 
! ! 
aus |! ! 27,34 (1B,22) 
! 


d 
64 
Zeilenpuffer- LF ! ! 27,68,32,0 (1B,44,29,09) 
überlauf | | 27,90,32,0 (1B,54,29,00)x 


. 8 Bit ! ! 27,90,0,50 (1B,5A,99,32) 
Überschrift in | ! 14 (PE) 7 Bit | 27,68,0,50 (1B,44,09,32)% 
! ' 15 (®F) 


Apple DOS 3.3 - Tips und Tricks 


Die völlig überarbeitete dritte Auflage (mit neuer Begleitdiskette) erscheint Anfang 1986. 


Dr. Alfred Hüthig Verlag - Postfach 102869 - 6900 Heidelberg 
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IW.DEMO 


11999 
11919 
11929 


11939 
11949 


11059 
12009 
12019 
12029 
12039 
12940 
12059 


12069 
12079 
12080 
12099 
12100 
1211® 
1212® 
12139 
12149 
12150 
12169 
12179 


12180 
12199 


12209 


12219 
13009 
13019 
13929 
13030 
13949 


13059 
13069 
13079 
13080 
1309 
13109 
13119 
13129 
13139 
13149 
13159 
13169 


13170 


13180 


13190 


13299 


13219 


13220 


13239 
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REM IW.DEMO VON THORSTEN SCHUNK, 1985 

TEXT : PRINT CHR$ (21): HOME 

I = ®:L = ®:PCMD$ = "": REM MEISTBENUTZTE VAR. 
ZUERST DEF. (GESCHWINDIGKEIT) 

GOSUB 63ß@%: REM RECHNER-CONFIGURATION ERMITTELN 
D$ = CHR$ (4): IF NOT PRODOS THEN D$ = CHR$ (13) + 
D$ 

GOTO 14909 

REM *%*%* PRINTER INPUT ROUTINE xxx 

REM IN: (AIIE) ;OUT: PCMD$ 

REM USES: I,L,P,PCMD$ 


PRINT : PRINT "DRUCKER: ";: CALL - 868 
PCMD$ = "":L = 
POKE 512,44: POKE 513,9: POKE 514,192: POKE 515,16: 


POKE 516,251: POKE 517,173: POKE 518,9: POKE 
519,192: POKE 529,141: POKE 521,16: POKE 522,2: POKE 
523,44: POKE 524,16: POKE 525,192: POKE 526,96: REM 
TASTATUR-ABFRAGE 

CALL 512:P = PEEK (528): REM ASCII-CODE HOLEN 

IF P = 255 THEN GOTO 12149: REM DEL 

IF P = 141 AND NOT AIIE THEN 12219: REM EINGABE-ENDE 
FUER II,II+ 


IF PEEK ( - 16287) > 127 THEN 1221®: REM EINGABE 
BEENDEN IIE,IIC 

IF PEEK ( - 16286) < 128 THEN P = P - 128: REM LOW 
ASCII 

IF L = > 170 THEN 1206® 


PCMD$ = PCMD$ + CHR$ (P):L=L+1 

PRINT P", ";: GOTO 12@6® 

REM DELETE 

IF NOT L THEN 12189 

P = ®: IF RIGHT$ (PCMD$,1) < > "" THEN P = ASC ( 
RIGHT$ (PCMD$,1)) 

FOR I=9T0O2+ (P=> 1) + (P = > 100): PRINT 
CHR$ (8);: CALL -— 868: NEXT 


L=L- 1: IFL= ® THEN PCMD$ = "": GOTO 12069 
IF L< ® THEN PCMD$ = "": PRINT "ABBRUCH": GOTO 
12219 

PCMD$ = LEFT$ (PCMD$,L): GOTO 12969 


PRINT : RETURN 

REM *%*%* PRINTER OUTPUT ROUTINE xxx 

REM ZU DRUCKENDER STRING IN PCMD$ (MAX. 17® ZEICHEN) 
REM IN: PCMD$, (S. LINE 13149) ;OUT: — 

REM USES:I,PSET, PCMD 

REM ES IST RATSAM, DEN DRUCKER AUF 'LF AM ANSCHLAG' 
(27,68,32,0) EINZUSTELLEN, DA DIES NORMALERWEISE DIE 
5(se) TUT 

PCMD = 1: REM +CR (WIE PRINT) +LF (WIE (S)SC) 

REM ZUS. EINSPRUNGPKT. (WIE '?;') 

IF NOT PSET THEN GOSUB 1313® 

IF LEN (PCMD$) > 17® THEN PCMD$ = PCMD$ + PCMD$: REM 
STRING TOO LONG ERROR 

FOR I = 1 TO LEN (PCMD$): IF MID$ (PCMD$,I,1) = '"" 
THEN POKE 808 + I,®: NEXT : GOTO 1311 

POKE 800 + I, ASC ( MID$ (PCMD$,I,1)): NEXT : REM 
STRING IN DRUCKERPUFFER POKEN 

IF PCMD THEN POKE 80® + 1,13: POKE 801 + I,10:I=1I 
+ 2:PCMD = ®: REM LINE 998 

POKE 800 + 1,255: CALL 768: RETURN : 
SETZEN UND SENDEN 

REM MASCHINENSPR.-ROUTINE EINRICHTEN 
REM A2C,SSC,SC(U.U.STREG, TDREG,RDY) 
REM AUF RICHTIGE WERTE SETZEN 

REM PSET AUF ® ZURUECKSETZEN, FALLS PAGE 3 BENUTZT 
WIRD 

IF NOT SSC AND NOT SC THEN PRINT : PRINT 
"UNTERPROGRAMM NICHT BENUTZEN": PRINT "OHNE VORHER 
VARIABLEN ZU BESTIMMEN!": POP : POP : STOP 

I = 768: POKE I,216: POKE I + 8,0: POKE I + 19,16: 
POKE I + 12,185: POKE I + 14,192: POKE I + 15,73: 
POKE I + 17,208: POKE I + 18,249: POKE I + 19,189: 
POKE I + 29,33: POKE I + 21,3: POKE I + 22,2®1: POKE 
I + 23,255 

POKE I + 24,240: POKE I + 25,6: POKE I + 26,153: 
POKE I + 28,192: POKE I + 29,232: POKE I + 39,298: 
POKE I + 31,236: POKE I + 32,96: POKE I + 33,255 

IF A2C THEN POKE I + 1,234: POKE I + 2,162: POKE I + 
3,192 + SSC: POKE I + 4,32: POKE I + 5,20: POKE I + 
6,194: POKE I + 7,162: POKE I + 9,234: POKE I + 
11,SSC * 16: POKE I + 13,137: POKE I + 16,80: POKE I 
+ 27,136: GOTO 13249 

POKE I + 1,141: POKE I + 2,6: POKE I + 3,192: POKE I 
+ 4,169: POKE I + 5,0: POKE I + 6,170: POKE I + 7,32 
IF SSC THEN POKE I + 9,192 + SSC: POKE I + 11,SSC «* 
16: POKE I + 13,137: POKE I + 16,16: POKE I + 
27,136: GOTO 13249 

IF SC THEN POKE I + 9,192 + SC: POKE I + 11,SC x 16: 
POKE I + 13,132: POKE I + 16,128: POKE I + 27,128: 


REM ENDMARKE 


13240 
14009 
14019 
14029 
14039 
14949 
14050 
1406 
1407 
14080 


14099 
14109 
1411® 
1412 
14130 


14149 


14150 


14169 


14179 


14189 
1419 
14299 
14219 
65000 
63019 
63029 
63039 
63049 


63059 


65069 


63079 
635089 


63099 
63199 
6311® 


63129 
63130 


63149 


63159 
63169 


63170 
63180 
63190 
63209 


63219 
63229 
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IF TDREG AND STREG THEN POKE I + 13,STREG - 49152: 
POKE I + 27,TDREG — 49152: POKE I # 16,RDY 


PSET = 1: RETURN 

REM *** HAUPTPROGRAMM xx%* 

REM STELLT 3 UNTERPROGRAMME VOR 

IF COL8® THEN C8 = 1: COL8® = ® :REM 89Z/Z 

hier desaktiviert 

IF C8 THEN COL8® = 1: PRINT 

HOME : PRINT 

PRINT "DIESE IMAGEWRITER-UTILITY STELLT": PRINT 
"DREI UNTERROUTINEN VOR: " 

PRINT : PRINT "- DIE PRINTER-INPUT-ROUTINE"" 

PRINT "ES WERDEN ALLE LOW-ASCII-";: IF AIIE THEN 
PRINT : PRINT "UND MIT DER SOLID-APPLE-TASTE'": PRINT 
"AUCH ALLE HIGH-ASCII-" 

PRINT "ZEICHEN ALS EINGABE AKZEPTIERT.": IF AIIE 
THEN PRINT "DIE DEL-TASTE LOESCHT DIE LETZTE 
TASTE.": PRINT "OPEN-APPLE-"; 

PRINT "RETURN BEENDET DIE EINGABE." 

PRINT : PRINT "- DIE PRINTER-OUTPUT-ROUTINE' 

PRINT "SIE SENDET JEDEN BELIEBIGEN STRING": PRINT 
"DIREKT AN DEN DRUCKER." 

PRINT : PRINT "- DIE COMPUTER-ID-ROUTINE'"" 

PRINT "MIT IHR KANN DIE RECHNERCONFIGURATION": PRINT 
"ERMITTELT WERDEN, DAMIT": PRINT "ALLE PROGRAMMTEILE 
KORREKT ARBEITEN" 

PRINT : GET A$: HOME : PRINT "SIE KOENNEN JETZT 
STEUERZEICHEN'": PRINT "EINGEBEN. DIE JEWEILS 
LETZTE": PRINT "STEUERZEICHENSEQUENZ LAESST SICH": 
PRINT "UNTER EINEM DATEINAMEN IHRER WAHL": PRINT 
"ABSPEICHERN": PRINT : GET A$ 

HOME : PRINT : PRINT "1 STEUER-SEQUENZ EINGEBEN": 
PRINT : PRINT "2 STEUERSEQUENZ SPEICHERN": PRINT : 
PRINT "3 ENDE": PRINT GET A$: ON A$ < > "1" AND A$ 
< > "2" AND A$ < > "3" GOTO 14159: ON A$ = "3" GOTO 
14180: ON A$ = "2" GOTO 1417® 

PRINT : PRINT "EINGABE MIT (OFFENER-APFEL-)RETURN": 
PRINT "BEENDEN": GOTO 1419® 

IF PSET THEN PRINT "DIE DATEI KANN SPAETER MIT BRUN 
NAME": PRINT "GESTARTET WERDEN": PRINT : PRINT 

D$; "CATALOG": INPUT "NAME:";FILE$: PRINT 

D$; "BSAVE"FILE$",A$300,L"I + 33: GOTO 1415 

TEXT : PRINT CHR$ (21): PRINT D$'"PR#®'": HOME : END 
GOSUB 12@09: REM GET INPUT 

IF PCMD$ < > '"" THEN GOSUB 13069: PRINT "0.K.": REM 
STRING AN DRUCKER SENDEN 

PRINT : GOTO 14159 

REM *** COMPUTER ID xxx 

REM SETZT AIIE, A2C, COL8®, SSC, SC ABHAENGIG VON 
HARDWARE 

REM UND PRODOS JE NACH DOS-VERSION 

AIIE = B:A2C = B:C0OL8B = B:SSC = B:SC = 

IF PEEK (64435) = 6 THEN AIIE = 1: REM 
IDENTIFICATION BYTE FUER IIE 

IF AIIE AND PEEK (64448) = ® THEN A2C = 1:C0L8ß = 
1:SSC = 1: GOTO 6311®: REM IDENTIFICATION BYTE FUER 
15% 

IF INT ( PEEK (49932) / 16) = 8 THEN COL8® = 1: REM 
80ÖCOL-CARD IN SLOT 3 

FOR SLOT = 1 TO 7 

IF INT ( PEEK (49164 + SLOT &» 256) / 16) = 3 THEN 
GOSUB 63139 

NEXT 

IF NOT SSC AND NOT SC THEN PRINT "DRUCKER-KARTE 
NICHT ERKANNT!": PRINT : PRINT "BITTE REMS NACH DEM 
'COMPUTER ID' LESEN": POP : STOP 

IF PEEK (978) = 190 THEN PRODOS = 1: REM REENTER DOS 
VECTOR 

RETURN 

IF PEEK (49163 + SLOT &* 256) = ®l THEN SSC = 
SLOT:SLOT = 7: RETURN : REM SUPER SERIAL CARD 

IF PEEK (49163 + SLOT x» 256) = 88 THEN SC = 
SLOT:SLOT = 7: RETURN : REM ALTE SERIAL CARD 

RETURN 

REM ANMERKUNGEN, FALLS DRUCKER-KARTE NICHT ERKANNT 
WURDE 

REM ZEILEN 63078 BIS 6314® LOESCHEN UND DURCH EIGENE 
ROUTINE NACH FOLGENDEN ANWEISUNGEN ERSETZEN 

REM SSC UND SC AUFGRUND DER STATUS- UND 
TRANSFER-REGISTER DER DRUCKER-KARTE BESTIMMEN 

REM SSC = N, FALLS STREG = $CN89 UND TDREG = $CN88 
REM SC = N, FALLS STREG = $CN84 UND TDREG = $CN89 
REM WOBEI N DER DRUCKER-SLOT IST 

REM FALLS DIE KARTE ANDERE AUSGABESTELLEN BENUTZT, 
SO IST SC=N , STREG UND TDREG SIND AUF DIE 
ENTSPRECHENDEN WERTE UND RDY AUF DEN 
'DRUCKER-BEREIT'-WERT DES STREG ZU SETZEN 
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14 


IW.IN 


Bereits in IW.DEMO als Data-Statements enthalten 


ORG 
* 


%* 

KBD EQU 
STROBE EQU 
PUFFER EQU 
0200: 2C B0 cp ENTRY BIT 
0203: 18 FB BPL 
0205: AD Bd CP LDA 
0208: 8D 19 92 STA 
020B: 2C 19 CP BIT 
B20E: 69 RTS 


vo osov oukhumd 


IW.OUT 


$0200 


* Tastatur direkt abfragen 


$copp 
$co1P 
$0219 
KBD 
ENTRY 
KBD 
PUFFER 
STROBE 


Bereits in IW.DEMO als DATA-Statements enthalten 


ORG 
* 


* 
A2C EQU 
SC EQU 
SLOT EQU 
5 
SLOTCX EQU 
INITCARD EQU 
INIT2ZC EQU 
STREG EQU 
TDREG EQU 
STREGSC EQU 
TDREGSC EQU 
. 
ENTRY CLD 
DO 
NOP 
LDX 
JSR 
LDX 
NOP 
ELSE 
0301: 8D B6 CO STA 


oo oı901 Pu Dr 


0300: DE 


$0309 


* IW-Output-Routine 


d -TIo: 1 
d ‚alte SC:l 
l ‚Drucker 


$Cdp6 ;SLOT-ROM 
$CQ+SLOTx$199 ;Einsprung 
$02c8 ‚IIc-Init 
$c089 ;‚Status-Reg. 
$c088 
50084 
$cHd8p 


‚Status-Reg. 


A2C ‚IIc 


#+$C0+SLOT ;Index 
INIT2C ;Init Port 
+00 ; Index=® 


‚II/IIe/II+ 


SLOTCX ;‚Enable 


‚Transfer-Reg. 


;‚Transfer-Reg. 


28 TAX 

29 JSR 

30 FIN 

Sl LDY #$19%&SLOT 

32 DO SC 

33 LDA STREGSC,Y 

34 EOR +#$8® 

35 ELSE 

36 LDA STREG,Y 

37 DO A2C 

38 EOR #$5® 

39 ELSE 

40 EOR #$1P 

41 FIN 

42 FIN 

43 BNE TRANS ‚nein 

44 LDA BUFF,X ‚Zeichen 

45 CMP _ #$FF ‚Ende? 

46 BEQ RETURN Ja 

47 DO SC ‚senden 

48 STA TDREGSC,Y 

49 ELSE 
B31A: 99 59 STA 

5l FIN 
B31D: E8 52 INX 
Ö31lE: D® 53 BNE 
0320: 69 54 RETURN RTS 
0321: FF 55 BUFF DFB $FF ;Endmarke 
Ab $9321 befinden sich später die Ctrl-Zeichen, die 
über IW.DEMO eingegeben worden sind. 


INITCARD ‚Drucker 


‚Offset 
‚fertig? 


TDREG, Y 


‚nächstes 


TRANS ‚stets 


BILDSCHIRM-ECHO 


Mehrere Peeker-Leser haben bereits angefragt, wie man 

beim Imagewriter das Bildschirmecho während des Druckens 
einstellt. Dies ist nicht ganz einfach. Falls ein Apple Ile 
mit Super-Serial-Card in Slot 1 benutzt wird, kann man 

ein 48-Z/Z-Echo mit folgendem Miniprogramm erzeugen. 

(Es setzt Bit 7 von Speicherstelle $ß7F9. Siehe 

"Super Serial Card Manual", S. 53.) 

Beim Apple IIe mit den neuen ROMs funktioniert auch 

ein 8®-Z/Z-Echo. us 


1® DATA 173,249,7,9,128,141,249,7,96 
20 FOR X = 700 TO 700 + 8: READ Y: POKE X,Y: 


0304: AY BB LDA #$99 


MMU 2.0 
Memory 
Managements 
Utilities 

für die Apple lle 64K-Karte 
DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7787-1023-1 


Bei der Version 2.0 der MMU’s sind 
die Utilities teilweise so umgeschrie- 
ben worden, daß sie sowohl unter 
DOS 3.3 als auch unter ProDOS lauf- 
fähig sind. Da dies nicht immer mög- 
lich war, sind zusätzlich zu den reinen 
DOS-Hilfsprogrammen, speziell den 
RAM-Disk-Drivern, einige reine Pro- 


NEXT : CALL 7@® 


DOS-Utilities aufgenommen worden. 
Insgesamt enthält die neue „MMU 
2.0“-Diskette über 25 Programme, 
die neue Einsatzmöglichkeiten für die 
Extended 80 Column Card (erweiter- 
te 80-Z-Karte = 64K-Karte für den 
Apple Ile) erschließen. Ein Teil der 
Programme laufen auch auf dem 
Apple II Plus, doch ist „MMU 2.0“ 
primär für 64K-Karte-Besitzer ge- 
dacht. 


Im einzelnen umfaßt „MMU 2.0" 


— Drei RAM-Disk-Driver für DOS 
3.3: „INIT 62“ benutzt nur die 
64K-Karte als RAM-Disk, „INIT 
78“ benutzt zusätzlich die Mother- 
board-LC als RAM-Karte und 
„DOSMOVER. INIT 62“ gilt für den 
Fall, daß sich das DOS selbst in der 
Motherboard-LC befindet. 


— Eine sehr nützliche Pseudo-Co- 
processor-Utility, die das Hin- und 
Herschalten zwischen zwei Pro- 





gramm-Modulen ermöglicht, von 
denen sich das eine Modul auf der 
64K-Karte befindet. 


— Zwei schnelle Kopierprogramme 
(für DOS 3.3 und ProDOS). 


— Mehrere Move-Programme zum 
Verschieben von Daten auf die 
64K-Karte sowie auf die Language 
Card und umgekehrt. 


— Mehrere Hilfsprogramme zum Un- 
tersuchen und Löschen bestimm- 
ter Speicherbereiche der 64K-Kar- 
te und der LC, zur Ermittlung des 
Softswitch-Status usw. 


— Zwei Simulator-Programme zum 
Simulieren von Apple Il und Apple 
II Plus auf dem Apple lle. 


Gerätevoraussetzung: Apple Ile mit 
64K-Karte oder IIc 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Jetzt purzeln die Preise! 
ZUSATZ-KARTEN: 


V-24-Schnittstelle ............ ‚- Z-80-Karte 


80-Zeichen-Karte m.Softswitch 236 16 K-Language-Karte ......... 98.- 
JoyStickDeluxe ............ 59,- Accelerator 3,6 MHz ......... 950,- 
68000 Intemex ............ 1600,- PALKarte ............2222... N0,- 
RGBKarte ................. 239,- IEEEABB........ 22222222... 312, 
Koppler dataphonm.FTZ...... 325,- Z80BKarte mit Software ...... 919,- 


Centronics-Karte von Epson für Graphik... . 210,- 
Centronics- Eu für 2 Drucker gleichzeitig. ern REN 129 


Super-Eprommer 


belegt keinen SIöt, incl. Software für 2716-27128 


FDC 4 für alle ‚Floppy; Controller 159,- 


Bausatz wielinks ............ 


Leerplatine wie oben incl. Prom u. Eprom I a 98,- 
Erphi-Controller ................... 298,- 


Drucker-Spooler 64. kB, 


fertig aufgebaut incl. Netzteilu. Gehäuse ........... 22 222222.. 340,- 


Wir bieten Ihnen die Preh-Qualität auch für Apple. AK ey! ez. mit Gehäuse, An- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, en für 

Ctri-Codes und Rechenfunktionen .....2222202222eeeaeeeeennn 339,- 
Preh Commander Keyboard, frei programmierbar 
bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen . 






TEAC 3%" meter FD 35 fa98.- 


Speicherkapazität 1 MB, (formatiert 640 en )jetzt fürnur ....... 
za & 





z 


EG 


TEAC FD 55 BV 2 x 40 Track 2... 460,- 
. 445,- TEACFDS5FV2x80 Track .... 449,- 


TEACFD55 AV 1x40 Track . 395,- 
TEACFD55EV1x80 Track .. 


Apple®-kompatibles Laufwerk incl. Gehäuse FRADOl. ahnen 599,- 

320 KB Laufwerk Kür Ice... 948,- 

640 KBlLaufwerk fürlic............. 1088,- 
EPSON DRUCKER 

EPSON FX80 ................ 0,- EPSON FX100 .............. 2159,- 

EPSONRX80 .............. 1070. EPSON RX8OFT ............ 1295 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formätiert: 2 x 
640 kByte. Anschlußfertig mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
versiDOS 2-C, 4-C (DD MOVER), Apple Pascal 


1.1,P 11.2, Pro-DOS 1.0.1, 

Ich, 1ATzum Pre VON as 1598,- 

Low Power Version ..... 22 acc. 1698,- 
® 

10 MB Winchester 


mit Software für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS 


ct a Gehäuse . 2.22.22... SA | 3990,- 
Sonderangebot 
Chinonon Laufwerk. wire „339.- 
INCH Kabel U.GENälise .. ...... 1er jetzt nur N) 


Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 
Händlerpreisliste bitte schriftlich anfordern! 


SB] SICH-1/-Yargela lie 


DFÜ 02373/66877 
Tel. 02373/63159 





Holtewiese 2 
5750 Menden | 





für Text... .145.- 





MERLIN 


von Glen Bredon 


Der professionelle Macro-Assembler für 
die Apple Il-Familie! 
Neben allen Standard-Features bietet 


MERLIN u.a.: 


EM komfortabler Editor mit globalen 


Such- und Ersetzfunktionen 

liest und schreibt DOS 3.3 Text- und 
Binärfiles 
unterstützt 6502- 
Opcodes 
beinhaltet eine Bibliothek mit fertigen 
Unterprogrammen 

enthält einen Disassembler mit eige- 
ner Label-Bibliothek 

kompatibel mit vielen 80-Zeichen- 


karten und natürlich mit Apple //e 
und Apple //c 


und 65C02- 


Neu: deutsches Handbuch! 


ISBN 3-89058-024-6 


DM 198,-- 


Bei Ihrem Apple-Händler, in guten Buch- 
handlungen, oder direkt vom Verlag: 


Pandabooks, Teltower Damm 168, 
D-1000 Berlin 37, (030) 815 80 69 


BEEEEE EM Betelopor BER EEE 


__ Ex. 


Name 


Anschrift 


.„.„.....e”—.e.0......n.. ..„.....ee......u.e......... 


O V-Scheck liegt bei (spesenfreie Lieferung) 
© per Nachnahme (zzgl. DM 3,—- Versandspesen) 


MERLIN aDM 198,-- 
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von Markus Geltenpoth 


Das nachstehend beschriebene Pro- 
gramm, das aus zwei Modulen besteht, 
dient 

1. zum Generieren eigener Zeichensät- 
ze für die HGR-Grafik, die hinsichtlich 
des Bit-Musters den Zeichen des 40- 
Z/Z-Zeichensatzes entsprechen, sowie 
2. zur simultanen Wiedergabe von Tex- 
ten des 40-Z/Z-Textbildschirm-Spei- 
chers auf der HGR-Grafik-Seite 1. 


Viele Apple-Il-Besitzer haben sich sicher 
schon oft darüber geärgert, daß man beim 
Apple Il keine eigenen Zeichen definieren 
kann. Deshalb habe ich ein Programm na- 
mens ASCII.EDITOR geschrieben, das es 
erlaubt, bis zu 224 Zeichen selbst zu defi- 
nieren. 

Ein weiteres Modul namens COPY.TEXT 
tastet später den Text-Bildschirm ab und 
überprüft bei jedem Zeichen, ob es einen 
Wert größer 32 hat. Wenn dies zutrifft, 
sucht sich das Programm den Speicher- 
platz des dazugehörigen, selbstdefinierten 
Zeichens und speichert es im Hires-Bild- 
schirm ab. Wenn der Wert des Zeichens 
im Textmodus kleiner als 32 ist, wird der 
Hires-Bildschirm an der dazugehörigen 
Stelle nicht verändert. Alles, was Sie also 
normalerweise auf dem 40-Z/Z-Textbild- 
schirm sehen würden, wird statt dessen 
automatisch auf der Hires-Seite angezeigt. 


1. Das Applesoft-Programm 


Das Applesoft-Programm ASCII.EDITOR 
wird benötigt, um einen neuen Zeichen- 
satz zu definieren oder einen alten umzu- 
definieren und dann auf Diskette zu spei- 
chern. Man hat die Möglichkeit, den Spei- 
cherbereich der zu erstellenden Zeichen 
zu löschen oder ihn so zu lassen, wie er 
gerade ist. Letzteres gestattet, alte Zei- 
chensätze vor dem Start des Programms 
einzuladen und diese vom Programm aus 
zu verbessern. Es wird dann jeweils vor 
dem Definieren das schon erstellte Zei- 
chen am Bildschirm gezeigt. Zu diesem 
Zweck ist auf der Peeker-Sammeldiskette 
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ASCII-Texte im 


HGR-Bildschirm 


Mit einem Zeichengenerator-Programm 


der Zeichensatz-File ASCII.CODES auf- 
genommen. 

Das Programm ist menügesteuert und er- 
Klärt sich von selbst. 


2. Das Maschinenprogramm 


Wie schon erwähnt, kopiert die Maschi- 
nenroutine COPY.TEXT die Zeichen des 
Textbildschirms auf den Hires-Bildschirm. 
Wenn man also seine selbstdefinierten 
Zeichen sehen will, muß man 1. das Ma- 
schinenprogramm und 2. den File mit den 
definierten Zeichen eingeladen haben. 
Dann kann man mit „CALL 768“ parallel 
zu den Zeichen im Textmodus die selbst- 
definierten Zeichen in die Grafik-Seite 1 
übertragen. Nach dem Einschalten der 
Grafik mit HGR kann man mit „POKE 
-16302,0“ auf Hires über den gesamten 
Bildschirm umschalten. 

Sicher werden Sie sich fragen, warum ich 
nicht mit indirekt indizierten Befehlen ar- 
beite, sondern den „unschöneren“ Weg 
der erheblich längeren Routine gewählt 
habe. Das hat seinen guten Grund: Da das 
Programm immerhin 8K kopiert, muß man 
schon auf die Geschwindigkeit der Op- 
Codes achten. Durch die direkt-indizierte 
Adressierung gewinnt das Programm 
wertvolle Millisekunden. Das macht sich 
dann bemerkbar, wenn man den Input- 
Vektor auf das Programm richtet. 


3. Zusätzliche Hilfen 


Um nicht immer „CALL 768“ eintippen zu 
müssen, kann auch der Zeiger des &- 
Kommandos mit folgenden Pokes auf den 
Programmanfang des Maschinenpro- 
gramms gesetzt werden: 

POKE 1014,0: POKE 1015,3 

Nach diesen Pokes wird immer nach Ein- 
gabe des &-Befehls der HGR-Bildschirm 
aktualisiert. 

Noch eleganter ist es, den Keyboard-Vek- 
tor KSWL (Adresse $0038, $0039) auf den 
Programmanfang zu richten und am Ende 
des Maschinenprogramms aus dem 


„RTS“ ein „JMP $FD1B“ (Input-ROM- 
Routine KEYIN) zu machen. Von Applesoft 
aus kann das folgendermaßen geschehen: 
POKE 917,76: POKE 918,27: POKE 
919,253 

(Änderung des RTS in JMP $FD1B) 
POKE 56,0: POKE 57,3: CALL 1002 
(Einbinden des neuen Vektors in DOS 3.3) 
Die letzten 2 Pokes und der CALL-Aufruf 
müssen unbedingt in einer Zeile hinterein- 
ander eingegeben werden. Danach wird 
Ihnen zunächst noch nichts Besonderes 
auffallen, aber wenn Sie auf HGR um- 
schalten, werden Sie sehen, daß jetzt der 
Text-Bildschirm immer automatisch ko- 
piert wird (siehe hierzu TEXT.COPY- 
.DEMO). 


Kurzhinweise 


1. Zweck: 

Erstellung eines eigenen Zeichensatzes; 
Kopieren des 40-Z/Z-Text-Bildschirms in 
den HGR-Bildschirm. 

2. Konfiguration: 

speziell für Apple II+ (ggf. mit Klein- 
schreibumrüstsatz) gedacht, aber auch mit 
Einschränkungen auf Ile und Ilc einsetz- 
bar; hier werden jedoch die Kleinbuchsta- 
ben ($40 ff.) nicht korrekt konvertiert. Not- 
behelf: Nach FLASH werden Großbuch- 
staben als Kleinbuchstaben auf dem HGR- 
Bildschirm ausgegeben. 
Nur DOS 3.3 

3. Test: 

RUN COPY.TEXT.DEMO 

4. Sammeldisk: 
ASCII.EDITOR 
(Applesoft-Zeicheneditor) 
COPY.TEXT.DEMO 
(Applesoft-Demoprogramm) 
T.COPY.TEXT 
(Big-Mac-Quelltext) 
COPY.TEXT 
(Maschinenprogramm zur 
der Zeichen) 
ASCII.CODES 4 
(Zeichensatz-File) = 
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Übertragung 





Speicheraufteilung 


$0300-$0397 Maschinenroutine 1 
$0399-$03B7 Maschinenroutine 2 (für ASCII.EDITOR) 
$6000-$6700 Selbstdefinierte Zeichen 


COPY.TEXT 
1 ORG $39® 
2 * 
ö * Markus Geltenpoth 
4 w 
5 * Dieses Programm kopiert Zeichen 
6 * vom Text- in den Hires-Bildschirm 
T * und lädt dabei für jedes Zeichen 
8 * aus dem Text-Bildschirm ein Zeichen 
9 * aus der Tabelle ab $6ß09. 
19 * Ab dieser Adresse werden von dem 
11 * Zeicheneditor selbstdefinierte 
12 * Zeichen gespeichert. 
13 * 
14 21 EQU $6P@P 
5 = EQU $6BEP 
16 23 EQU $61CA 
17 Z4 EQU $62AQ 
18 25 EQU $6389 
19 Z6 EQU $646® 
28 27 EQU $6549 
21 28 EQU $6629 
22 * 
23 * Z1l-Z8 sind die Anfangsadressen 
24 * von 224 Bytes. Sie stellen die 
25 * verschiedenen Zeilen eines 
26 * Zeichens dar. 
er * 
28 IOSAVE EQU $FFAA 
29 IOREST EQU $FF3F 
30 KEYIN EQU $FD1B 
öl E 
0300: 208 AA FF 32 JSR IOSAVE 
0303: A2 99 33 LDX #$09 ‚Zähler 
0305: BD PO Ba 34 LOOP LDA $409,X ‚Zeichen 
B308: 38 35 SEC 
0309: E9 29 36 SBC +#$29 
B30B: 90 31 37 BCC LASSEN 
Q30D: A8 38 TAY ‚retten 
Q30E: B9 BO 60 39 LDA 21,Y 
@31l: 9D O0 28 AB PI STA $2900,xX 
0314: B9 EB 60 4l LDA 22.T 
0317: 9D BB 24 42 P2 STA $2490,X 
B31lA: B9 CO 61 43 IDA 23, 
031D: 9D BB 28 44 P3 STA $2890,X 
0320: B9 AB 62 45 LDA Z4,Y 
0323: 9D BB 2C 46 PA STA $2C99,XxX 
0326: BY 80 63 47 LDA 25,Y 
0329: 9D O0 30 48 P5 STA $3009,xX 
032C: BY 60 64 49 LDA Z6,Y 
D32F: 9D BO 34 59 P6 STA $3490,X 
0332: B9 AB 65 51 LDA Z7,Y 
0335: 9D BB 38 52  P7 STA $3899,X 
0338: B9 20 66 53 LDA Z8,Y 
033B: 9D BB 30 54 P8 STA $3CQ9,X 
Ö33E: E8 55 LASSEN INX ‚nächstes 
033F: D® CA 56 BNE LOOP 
0341: AD 07 03 57 LDA LOOP+2 
0344: C9 97 58 CMP #$97 ;Schirmende? 
0346: FO 1D 59 BEQ ENDE ;‚ja, Endroutine 
6GB x 
61 * Diese Routine erhöht alle Pointer 
62 * 
0348: EE 07 03 63 INC LOOP+2 
034B: EE 13 03 64 INC PI+2 
Ö34E: EE 19 03 65 INC P2+2 
0351: EE IF 03 66 INC P3+2 
0354: EE 25 03 67 INC P4+2 
0357: EE 2B 03 68 INC P5+2 
035A: EE 31 03 69 INC P6+2 
035D: EE 37 03 7 INC P7+2 
0360: EE 3D 3 71 INC P8s+2 
0363: D® AB 72 BNE LOOP 
0365: AY BA 73 ENDE LDA #$94 
0367: 8D 07 03 74 STA LOOP+2 
B36A: AY 2P 75 LDA +#$29 
B36C: 8D 13 03 76 STA Pl+2 
B36F: AY 24 TT LDA #$24 
0371: 8D 19 03 78 STA P2+2 
0374: A9 28 79 LDA #$28 
0376: 8D IF 03 80 STA P3+2 
0379: A9 2C 8l LDA #$2C 
037B: 8D 25 03 82 STA P4+2 
B37E: A9Y 39 83 LDA +#$39 
0380: 8D 2B 03 84 STA P5+2 
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arafık 4.4 


0383: A9Y 34 85 LDA #934 

0385: 8D 31 03 86 STA P6+2 

0388: AI 38 87 LDA #$38 

D38A: 8D 37 B3 88 STA P7+2 

B38D: AI 3C 89 LDA #$3C 

B38F: 8D 3D 03 90 STA P8+2 

0392: 28 SF FF 91 JSR IOREST 

0395: 6% 92 RTS 

0396: EA 93 NOP 

0397: EA 94 NOP 
95 + 
96 * Statt des RTS und der 2 NOPs 
97 * kann bei Benutzung des Input- 
98 * Vektors der Befehl JMP KEYIN 
99 * benutzt werden. 
100 x 
101 * Neue Assemblerroutine: CALL 921 
102 x Diese Routine zerlegt ein Byte 
103 & in seine Bits. 
104 x 

0398: BP 185 BYTE HEX 9 

0399: AC 98 03 106 LDY BYTE 

B39C: AY 49 197 LDA #%01900099 

B39E: 8D 98 03 198 STA BYTE 

B3Al: A2 B6 199 LDX #6 

D3A3: 98 118 LOOPI TYA 

B3AA: 2D 98 03 111 AND BYTE 

B3A7: 9D Bl 03 112 STA BITS,X 

P3AA: AE 98 B3 113 LSR BYTE 

B3AD: CA 114 DEX 

B3AE: 10 F3 115 BPL LOOP1 

B3Bß: 69 116 RTS 
117 BITS DS T 
118 x 
119 & Zusätzlich kann auch der &-Vektor 
128 x (Adresse $3F5-$3F7) auf das Programm 
121 x gesetzt werden: 
122 x $3F5 = $4C, $3F6 = $00, $3F7 = $93) 

184 Bytes 

ASCII.EDITOR 

1000 REM *»* ASCII.EDITOR VON MARKUS GELTENPOTH xx 

101® PRINT CHR$ (4) ;'"BLOAD COPY.TEXT" 

1028 LOMEM: 26624: PRINT CHR$ (21) 

103® DIM A(8) 

10408 HOME : PRINT " ZEICHEN-DEFINITIONSPROGRAMM" 

1058 VTAB 3: PRINT "MIT DIESEM PROGRAMM KOENNEN EIGENE 


196® 


1979 


1089 
1999 


1199 


111® 


1129 
113® 
1149 
1159 


1169 
1179 
118® 


1199 
1209 
1219 
1229 
1239 
1249 
1259 


1269 
1279 


1280 
1299 


ZEICHEN DEFFINIERT WERDEN. DIESE ZEI- CHEN WERDEN 
DANN GEGEN DIE ANGEGEBENEN ZEICHEN AUSGETAUSCHT UND 
KOENNEN DURCH AUFRUF VON 'CALL 768' AUF DEN HIRES-" 
PRINT "BILDSCHIRM UEBERTRAGEN WERDEN. ES 
KOENNEN INSGESAMT 224 ZEICHEN DE- FINIERT WERDEN, 
DIE DURCH EIN MASCHINEN-PROGRAMM NACH HIRES KOPIERT 
WERDEN. ALLECONTROL-ZEICHEN IM PRINT-MODUS WERDEN 
IGNORIERT." 

PRINT "DURCH DIESES PROGRAMM HAT MAN DIE MOEG- 
LICHKEIT, BEWEGTE BILDER IM TEXT-MODUS DARZUSTELLEN, 
UM SIE DANN IN BESSERER GRAFIK IN DIE HIRES ZU 


UEBERTRAGEN" 
VTAB 22: PRINT " PROGRAMM VON MARKUS GELTENPOTH, 1985" 
PRINT " ZEICHENSPEICHERBEREICH LOESCHEN (J/N)";: GET 


AZ$: IF AZ$ < > "J" THEN 1119 

FOR I = 24576 TO 26623: POKE I,®: NEXT : REM x** 
LOESCHEN DES SPEICHERBEREICHS DER DEFINIERTEN ZEICHEN 
*%* 

VTAB 23: PRINT " TASTE": VTAB 23: 
HTAB 23: GET A$ 

Z = ®: REM ** ZEICHEN-NUMMER x*%* 


HOME : PRINT " ZEICHEN-NR.: ";Z2 +1 
zl = 9 
PRINT '" DEFINITION FUER ZEICHEN: "; CHR$ (32 + 2) ;" 


(CHR$(";Z + 32;"))" 

INVERSE : VTAB 5: HTAB 15: PRINT ".9123456.' 

IF AZ$ < > "J" THEN 1369 

FOR I = ® TO 7: VTAB 6 + I: HTAB 15: PRINT I: VTAB 6 


+ I: HTAB 23: PRINT ".": NEXT 

VTAB 14: HTAB 15: PRINT "......... '": NORMAL 

VTAB 16: PRINT " STEUERUNG: '" 

PRINT "' I SP = PUNKT SETZEN/LOESCHEN" 

PRINT "' J——K N = NAECHSTES ZEICHEN" 

PRINT " M E = ENDE" 

xX=16:Y=6 

Pl = SCRN( X - 11,Y *» 2 - 2):P2 = SCRN( X - 1,Y»* 2 - 
1) 

VTAB Y: HTAB X: GET A$: COLOR= Pl: PLOTX- 1, Y* 2 - 


2: COLOR= P2: PLOTX- 1, Y«*« 2-1 


x=X+ (A$=!"K") « (X < 22) -— (A$ = "J") * (X > 16) 
Y=Y+(A$="M") «x (Y< 13) - (A$ = "I") « (Y>6) 
P=SCRN X-1, Y«*2-]) 


1f 


IF A$ = " " THEN IF P = 2 THEN VTAB Y: HTAB X: PRINT 
IF A$ = " " THEN IF P = 1 THEN INVERSE : VTAB Y: 
HTAB X: PRINT " ": NORMAL 

IF A$ = "N" THEN 143® 

IF A$ = "E" THEN 1529 

zi=ZlI+1 

GOTO 1259 

REM ** GESPEICHERTES ZEICHEN AUF DEN BILDSCHIRM 
BRINGEN xx 

FOR I = ®Ö TO T:A = PEEK (24576 + I = 224 + Z): POKE 
92®,A: CALL 921: FOR J = ® TO 6:A(J) = PEEK (945 + 
J): NEXT 

VTAB 6 + I: INVERSE : HTAB 15: PRINT I;: NORMAL : FOR 
J=6T0 6: IF A(J) = ® THEN PRINT " ";: NEXT : GOTO 
1499 

INVERSE : PRINT " ";: NORMAL : NEXT 

INVERSE : PRINT ".": NORMAL 

NEXT I: INVERSE 

GOTO 1199 

REM ** ALTES ZEICHEN BERECHNEN UND IN DEN SPEICHER 
'POKEN' xx 

IF Z1 = ® THEN 148® 

FOR I = 1 TO 8:A = B: FOR J = 1 TO T:Al = PB: IF SCRN( 
J+14,(I+5) «2 -1)=2THENAl=1 
A=A+Al*21 (J- 1): NEXT 

POKE 24576 + (I - 1) « 224 + Z,A: NEXT 

Z = Z + 1: REM ** NAECHSTES ZEICHEN DEFINIEREN x*%* 

IF A$ = "E" THEN RETURN 

IF Z + 32 = 256 THEN 1549 

GOTO 1139 

REM ** ENDE DER DEFINITION, SPEICHERBEREICH MIT 
DEFINIERTEN ZEICHEN AUF DISKETTE SPEICHERN x*%* 


GOSUB 1430: REM *%* LETZTES ZEICHEN SPEICHERN *%* 
HOME : VTAB 3: PRINT "DIESEN ZEICHEN-FILE SICHERN? 
(J/N) ";: GET A$: IF A$ = "N" THEN 1599 

PRINT : INPUT "NAME DES FILES: ";N$ 

PRINT : PRINT "DISKETTE EINLEGEN UND TASTE 
DRUECKEN"; : GET A$ 

PRINT """ 

PRINT CHR$ (4) ;"BSAVE ";N$;",A$6009,L$700" 

HOME : VTAB 3: PRINT "UM DIESE ZEICHEN AUF DEM 
BILDSCHIRM ZU SEHEN, MUESSEN SIE ERST DAS PROGRAMM: 
'COPY.TEXT' (A$0309) UND DIESEN ZEICHEN-FILE (A$699P) 
EINLADEN. '" 


16008 PRINT "IN HGR KANN MAN DANN NACH 'CALL 768' DIE 


DEFINIERTEN ZEICHEN, ANSTELLE DER" 


1618 PRINT "IM TEXT-MODUS GEPRINTETEN ZEICHEN AUF DEM 


BILDSCHIRM SEHEN." 


1628 PRINT : PRINT : END 


COPY.TEXT.DEMO 


10 
29 
30 


40 
50 
69 
79 
80 


99 


PRINT CHR$ (4)"BLOAD ASCII.CODES'" 

PRINT CHR$ (4)"BLOAD COPY.TEXT" 

PRINT CHR$ (21): REM 89-ZEICHENKARTE ABSTELLEN FUER IIE, 
IIC 

HGR : POKE -— 16302,9: REM NUR GRAFIK 

HOME : PRINT "AUSGABE UEBER COPY.TEXT? (J/N)";: CALL 768 
GET A$: PRINT A$: CALL 768: IF A$ = "J" THEN 89 

POKE 1914,90: POKE 1915,3: END : REM &-VEKTOR SETZEN 
POKE 917,76: POKE 918,27: POKE 919,253: REM JMP KEYIN 
STATT RTS 

POKE 56,9: POKE 57,3: CALL 1®®2: REM EINGABE-VEKTOR 
SETZTEN UND DOS ANHAENGEN „ 


SUPERQUICK 


Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmdiskette mit Anleitung, DM 48,— 


Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD- 
Pascal und CP/M) in einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatie- 
rung) zu kopieren. Bei entsprechender Speichererweiterung kann der gesamte Disket- 
teninhalt eingelesen werden, um mehrere Kopien anzufertigen. Die Zeit für eine Einzel- 
kopie reduziert sich dann auf sage und schreibe 19 Sekunden. 


SUPERQUICK erkennt die 64K-Karte (in Slot 3) des Apple Ile und Ilc sowie eine 16K- 
Language-Card in Slot O und bezieht diese selbständig als Datenpuffer ein. Darüber hin- 
aus werden die IBS-Karten AP17 in den Ausbaustufen 64K bis 256K automatisch unter- 
stützt und gegebenenfalls als weitere Puffer eingesetzt. 


Eine Anpassung an Laufwerke mit höherer Spurenzahl (bis 80 Spuren, einseitig) ist 
ohne Schwierigkeiten aus dem Programm-Menü heraus möglich. 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 
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“COMPUTER 


OPERATOR 


= & 
ü 


N \ 


Qualität und Fortschritt, 
der sich bewährt hat! 


Als Dankeschön für Ihr Vertrauen und die 


große Nachfrage: 
OPERATOR Il 


jetzt nurnoch 


Leistungstabelle: 
Prozessor: 


Interface: 

Handshake wählbar: 
Kabel mit Stecker: 
Ausführliches Handbuch: 
Schaltplan: 

Gehäuse: 

Deutsches Erzeugnis: 
Hex-Eingabe: 
Eingabebuffer: 
Barcodeanschluß: 


Passwortprogrammierbar: 


Gewicht: 

Maße: 

Programmierbare Tasten: 
Programmierbare 
Ebenen tauschbar: 

Frei programmierbar: 


Kein Datenverlust 

nach Abschalten: 

Max. Speicherkapazität: 
Pro Taste: 
Vorprogrammierung: 
Autorepeat: 


Akustikgeber eingebaut: 


inkl. MwSt. 


6511 
(ähnl. 6502) 
parallel/seriell 


ergonomisch 

ja 

ja 

ja 

möglich 

ja 

1,9 kg 
47x19x3cm 
3x38 


alle 3 beliebig 
EEPROM 
(direkt über 
Tastaturein- 
gabe) 


ja 

1.6 kByte 
14 Byte 

2 Geschwin- 
digkeiten 

ja 


Lieferung per Nachnahme zzgl. Versandspesen. 
Ausführliches Info gegen Freiumschlag. 


AFC Computer GmbH 
Salmstr. 20 - 5000 Köln 91 


Tel. 02 21/83 80 00, Telex 8 873 254 afc 
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Brainware 


Ihr Experte in Expertensystemen 
Consulting - Schulung - Software 





ARTIFICIAL 
INTELLIGENCE 
FÜR APPLE II und 
MACINTOSH 


C 
LISP 
PROLOG 
MODULA 2 
IDEA PROCESSING 
EXPERT SYSIEM SHELLS 


Fordern Sie unseren Katalog an. 








Brainware GmbH 
Kirchgasse 24 
6200 Wiesbaden 
Tel.: 061 21-37 20 11 


Niederlassung Deutschland 





Hallo, hier bin ich, der neue Stern am deutschen Computerhimmel. Ich heiße 


PROMETRIC"! 


Super-Preise, hohe Integration und schnelle Verarbeitungsgeschwindigkeit 
bieten mehr als belegte Slots, viele Zusatzkarten und große Investitionen. 


Prozessoren: 
6502 mit 


65C02 mit KWEANITR 


Zz80oB mit 


Speicher: 








64 KByte Arbeitsspeicher 6502 
64 KByte Arbeitsspeicher 65C02C 
64 KByte Arbeitsspeicher Z80B 


192 KByte Gesamtarbeitsspeicher 


Text-Ausgabe: 


40 Zeichen Monochrom 


80 Zeichen Monochrom - 4 Zeichensätze 
Umschaltbar deutsch / amerik. 


B3 Motherboard mit 256 K 
Floppy-Controler 
Autoboot-Karte 

Netzteil 10 A 


Portable und Tischgerät auf Anfrage 


Versand per Nachnahme 


Apple ıst eingetr. WZ der Apple Inc 


LIMITED 


DM 1.999,-- 
DM 125,-- 
DM 200,-- 
DM 250,-- 


Wellen Sie mit Ihrem MAGINTOSH 


grafisch arbeiten? 


- .Summagraphies 








80 Punkte 
Video-PAL/NTSC 
Es können mehrere Monitore gleichzeitig betrieben werden 
Interface 
Centronics - Schnittstelle 
RS 232/24 - Schnittstelle bis 19200 Baud 
Kassetteninterface 
Joy-Stick" Anschlußmöglichkeit 
Anschlußmöglichkeit für externe Tastatur 
System-Urlader 
Durch diese neuentwickelte Hardwarekomponente kann 
eliebige 6502-Systemsoftware von Diskette geladen werden 


und bleibt im Rechner durch Akkupufferung auch nach 
Abschalten des Gerätes erhalten. Systemsoftware z.B 
Deutsches BASIC 

nteger BASIC 

Appelsoft BASIC 

FORTH 





DOS: 

Dieses neuentwickelte Disketten-Operations-System verwaltet 
35-, 40- und 80-Track Laufwerke automatisch und stellt viele 
nützliche Hilfs- und System-Funktionen zur Verfügung 
Außerdem ist es gegenüber bisher bekannten 6502-Betriebs 
systemen um bis zu 8 mal schneller 


Electronical Special Service - Abt.: Prometric 
6300 Gießen - Schiffenberger Weg 109 
| Tel. 0641/71080, 71088, 71089- Telex 4 821514 








MacTablett von 






Georg-Brauchle-Ring 68 
D-8000 München 50 


Telefon 089/1415077 


Telex 5214793 
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von Strings 


Der im Applesoft-ROM implementierte IN- 
PUT-Befehl ist nicht gerade luxuriös aus- 
gestattet. Man darf nicht alle Zeichen ein- 
geben und kann die Länge des Eingabe- 
Strings nicht begrenzen. Für solche Pro- 
bleme gibt es Bildschirm-Maskengenera- 
toren, die dieses Problem elegant lösen. 
Sie haben nur einen Nachteil: Sie kosten 
Geld! Man braucht nicht immer aufwendi- 
ge Programme, um seine kleinen Proble- 
me zu lösen. Es gibt auch Kompromisse: 
GETTEXT ist eine komfortable Texteinga- 
be für Applesoft, die auch Textvorgaben 
aus einer Stringvariablen übernimmt. Es 
setzt sich zusammen aus dem modifizier- 
ten Programm INALL von H. Grumser 
(Peeker, Heft 5/85) und der eigentlichen 
INPUT-Routine GETX, die übrigens — 
nach Löschen einiger Zeilen — auch allein 
in Assemblerprogrammen verwendet wer- 
den kann. Diese bietet ein definiertes Ein- 
gabefeld zwischen 1 und 255 Zeichen, 
Delete, Insert und die Escape-Funktion. 
GETTEXT kann an jede freie Stelle des 
48K-Speichers geladen werden und be- 
nutzt trotzdem den Ampersand-Vektor. Es 
ist deshalb sehr einfach in ein Applesoft- 
Programm einzubinden. Die beiden Ver- 
sionen für DOS 3.3 und ProDOS unter- 
scheiden sich nur in einer Adreßdefinition. 
Das Programm läuft auf Apple Ile, IIc und II 
Plus und unterstützt auch die entspre- 
chenden 80-Zeichenkarten. 


INALL wurde an zwei Stellen verändert: 
Zusätzlich wird die Zahl der einzugeben- 
den Zeichen abgefragt (GETBYT), und 
statt des Applesoft-INPUT wird GETX und 
der Teil der INLIN-Routine verwendet, der 
Bit 7 der Zeichen auf Null setzt und ein 
Null-Byte an den eingegebenen String 
hängt (GDBUFS1). 


20 


Programmablauf 


GETX besitzt drei wichtige Zeiger. Der er- 
ste, ANZAHL, enthält die zugelassene 
Zahl an Zeichen. PTEND gibt die Zahl der 
eingegebenen Zeichen an. Wenn PTEND 
und ANZAHL gleich sind, dann ist das 
Zeilenende erreicht. Der dritte Zeiger, 
PTAKT, zeigt auf die gerade aktuelle Cur- 
sor-Position. PTAKT und PTEND dürfen 
nicht kleiner als Null und nicht größer als 
ANZAHL werden (linker und rechter Rand 
des Eingabefeldes). Zusätzlich wird mit ih- 
rer Hilfe entschieden, ob das Programm 
die neuen Buchstaben an den Text anhän- 
gen oder löschen kann, oder ob es mitten 
im Text Buchstaben einfügen oder lö- 
schen muß (Insert-Modus). Am Beginn 
von GETX werden PTAKT und PTEND auf 
Null gesetzt. Ein vierter Pointer (ZEIGER) 
wird nur verwendet, um einen String aus 
dem Speicher in den Tastatur-Eingabepuf- 
fer zu bewegen. 


Nach dem Rückstellen der Zeiger wird das 
Eingabefeld angelegt. Wenn die beim Auf- 
ruf genannte Applesoft-Variable einen 
String enthält, dann wird ihr Inhalt in das 
Eingabefeld übernommen. Die Länge des 
Variableninhaltes darf dabei die vorher de- 
finierte Länge des Eingabefeldes nicht 
überschreiten, sonst erfolgt eine Fehler- 
meldung. SIGN ist das Zeichen für einen 
Punkt und kann durch andere Zeichen (z.B. 
$A0; Leertaste) ersetzt werden, wenn das 
Eingabefeld anders gestaltet werden soll. 
Nach dem Ausdruck der Punkte wird die 
Zeichenausgabe wieder auf den Anfang 
der Eingabezeile bzw. auf PTEND zurück- 
gesetzt. Hierauf folgt die Cursor-Routine: 
Es wird kein Cursor angezeigt, wenn das 
Eingabefeld voll (CUR) und PTAKT gleich 
PTEND ist. Wenn dann ein Eingabever- 


Komfortabler INPUT 


von Ulrich KußBmann 


such erfolgt, sendet das Programm zur 
Warnung einen Piepston (EOL). 

Um den Strich-Cursor darzustellen, wird 
zuerst ein Strich ausgegeben (CURSOR) 
und darauf das Zeichen, auf das PTAKT 
zeigt. Zwischendurch wird in der Warte- 
schleife KEYWAIT laufend die Speicher- 
stelle $C000 auf eine Tastatureingabe ab- 
gefragt. Das Setzen und Löschen des Car- 
ry-Flags dient dazu, zwischen Strich- und 
Zeichenausgabe abzuwechseln. 

Wurde eine Taste gedrückt, dann erfolgt 
eine Verzweigung nach TASTE. Hier wird 
die eingegebene Taste im X-Register zwi- 
schengespeichert und das aktuelle Zei- 
chen noch einmal ausgegeben, denn es 
könnte ja auch noch der Strich des Cur- 
sors auf dem Bildschirm stehen. Es folgt 
die Rückstellung des Tastatur-Eingabere- 
gisters und eine Abfrage, ob das Zeichen 
ein Befehl für das Programm oder ein ein- 
gegebenes Zeichen ist. 

Nach der Entscheidung, ob das eingege- 
bene Zeichen ein Befehl (BACK = Links- 
pfeil; RETURN = Eingabeannahme; VOR 
= Rechtspfeil; ESC = Löschen + Return; 
DEL = Delete) oder eine Eingabe ist, wird 
die entsprechende Uhnterroutine abgear- 
beitet. Bei einer Eingabe muß entschieden 
werden, ob der Text in den String einge- 
fügt oder angehängt wird. Wichtig ist, daß 
die beiden Pointer PTEND und PTAKT bei 
jeder Veränderung entsprechend gestellt 
werden. Wie man schon bemerkt haben 
wird, unterhält das Programm eine „dop- 
pelte Buchführung“: Die Zeichen werden 
sowohl in den Bildschirmspeicher als auch 
inden Tastatur-Eingabepuffergeschrieben. 


Die Veränderungen beim Löschen oder 
Einfügen werden in den Teilen MOVEUP 
und DEL1 in den Puffer eingetragen; beide 
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Teile benutzen das Unterprogramm UP- 
DATE, um den Bildschirminhalt zu aktuali- 
sieren. An dem gelöschten bzw. gesetzten 
Carry-Flag kann UPDATE unterscheiden, 
ob vorher ein Insert- oder ein Lösch-Be- 
fehl abgearbeitet wurde. 

Da beim Il Plus keine DEL-Taste existiert, 
sollte die DELETE-Zuweisung in Zeile 69 
durch „DELETE EQU $84 ;Ctri-D“ ersetzt 
werden. Dies wirkt sich im Code nur in der 
Adresse $80EB aus, die von $FF zu $84 
geändert werden sollte. 


Verschiebbarkeit im Speicher 


Wenn ein Programm im Speicher an allen 
Stellen lauffähig sein soll, dürfen Sprung- 
befehle (JMP, JSR) nur für im Speicher 
feststehende Unterprogramme (z.B. 
ROM-Routinen) verwendet werden. Inner- 
halb von GETTEXT erfolgen Verzweigun- 
gen nur relativ. Weil aber solche Verzwei- 
gungen maximal 126 bzw. 129 Bytes lang 
sein dürfen, „hangelt“ es sich an einigen 
Stellen über mehrere Branch-Befehle zur 
gewünschten Stelle. 

Zusätzlich darf das Programm keine inter- 
nen Datenregister haben, die mit LDA, 
STA oder ähnlichen Befehlen abgefragt 
werden. Die internen Register von GETX 
liegen in der Zero-Page und sparen so, 
weil sie oft abgefragt werden, einige 
Bytes, da die meisten Zero-Page-Befehle 
nur zwei statt drei Bytes lang sind. Das 
Programm ist nur bedingt relokativ, weil 


GETTEXT.DEMO 


100 REM <<< GETTEXT.DEMO >>> 
11® HOME 
128 REM Startadresse = LOMEM 





gleich am Anfang der Ampersand-Vektor 
gesetzt wird. GETTEXT erfährt beim Star- 
ten durch „BRUN GETTEXT“ seine jewei- 
lige Position im Speicher vom Betriebssy- 
stem (siehe Hinweis zur Anpassung an 
ProDOS. Auf der Peeker-Sammeldiskette 
ist die ProDOS-Version unter dem Namen 
GETTEXT.PRODOS enthalten). Verschö- 
be man es zu einem späteren Zeitpunkt, 
dann würde der Applesoft-Interpreter ins 
Leere springen. Hier liegt auch der einzige 
Unterschied des Programms zwischen 
DOS 3.3 und ProDOS. (Das BASIC.SY- 
STEM 1.0 der ProDOS-Versionen 1.0.1 
und 1.0.2 ist gleich). 


Ein Beispiel 


Wie man das Maschinenprogramm in Ap- 
plesoft einbinden kann, zeigt das Beispiel 
GETTEXT.DEMO: GETTEXT wird direkt 
hinter das BASIC-Programm geladen, und 
der Anfang des freien Speichers (Varia- 
blenspeicher) LOMEM wird um die Länge 
von GETTEXT heraufgesetzt. Vorsicht: 
Wenn ein solches Programm verlängert 
wird, muß beim Austesten GETTEXT je- 
desmal neu geladen werden. Umgeht man 
dieses durch einen GOTO-Start, dann 
stürzt das Programm bei Aufruf der As- 
semblerroutine ab, weil diese von Ap- 
plesoft überschrieben wurde. (Dieses Pro- 
gramm läuft auf dem Apple Il Plus mit 
Videx-Karte erst nach Anpassung der Ta- 
bulierungen. Der HOME-Befehl ist durch 
„PRINT CHR$ (12)“ zu ersetzen.) 


Applesoft 4.4 


Literatur: 

U. Stiehl, Apple Assembler, Hüthig Verlag 
1984. 

U. Stiehl, ProDOS für Aufsteiger, Hüthig 
Verlag 1984. 

D. Worth, P. Lechner, Beneath Apple 
DOS, Quality Software 1981. 

Das Apple-Sonderheft, mc (Nr.89), Fran- 
zis Verlag 1984. 


Kurzhinweise 


1. Zweck: 

Hilfsprogramm zur Erweiterung des Tasta- 
tur-INPUT-Befehls durch Editierfunktio- 
nen; nicht für Disketten-Textdatei-INPUT 
gedacht! 

2. Konfiguration: 

Apple Il+, Ile, Ilc mit 40 Z/Z oder 80 Z/Z; 
bei 80 Z/Z mit Videx-Karte Programman- 
passung von GETTEXT.DEMO erforder- 
lich. Zwei getrennte Versionen des Ma- 
schinenprogramms für DOS 3.3 und Pro- 
DOS (BASIC.SYSTEM 1.0). Für ProDOS 
in Zeile 140 von GETTEXT.DEMO den Na- 
men „GETTEXT.PRODOS“ einsetzen. 

3. Test: 

DOS 3.3 booten 

RUN GETTEXT.DEMO 

4. Sammeldisk: 

GETTEXT.DEMO 

(Applesoft-Programm) 

GETTEXT + T.GETTEXT 

(Version für DOS 3.3) 
GETTEXTG.PRODOS 4 
(Version für ProDOS) = 


RR 
<<< GETTEXT >>> 


Ein komfortabler BASIC-INPUT 


139 
149 
159 
16% 
17 
189 


199 
209 
219 
220 


START = PEEK (175) + PEEK (176) * 256 

PRINT CHR$ (4) ;"BRUN GETTEXT,A";START 

REM LOMEM = LOMEM + 492 (Länge von GETTEXT) 

CLEAR : LOMEM: PEEK (175) + PEEK (176) x 256 + 492 
PRINT "GETTEXT: Eine komfortable Texteingabe" 

REM Es folgt der Aufruf von GETTEXT: & Stringvariable, 
Zeichenzahl 

VTAB 1®: HTAB 8: PRINT "Name: ";: & X$,20 

VTAB 14: HTAB 14: PRINT X$ 

VTAB 1: HTAB 9: INVERSE : PRINT "KORREKTUR?'";: NORMAL 
PRINT SPC( 129) 

VTAB 19: HTAB 8: PRINT "Name: ";: & X$,20 

VTAB 16: HTAB 14: PRINT X$ 


GETTEXT 


BSAV 


Für 


Es e 


8029: 
8023: 
8025: 
8027: 
EDRA: 
802D: 
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E GETTEXT, A$8ß09, L$9192 
ProDOS ist Zeile 51l des Assemblerlistings zu ändern in: 


Sl ADRESS EQU $BEB9Y 


rgeben sich beim Assemblieren dann folgende Änderungen: 


BE LDA ADRESS 
+$93 
AMPER1 
ADRESS+1 
AMPER1 $3F6 
ADRESS+1 
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(benutzt die modifizierte 

INALL-Routine von H. Grunser) 
von Ulrich Kußmann, Bonn 1985 
Aufruf über Ampersand-Vektor: 


oo oı9 AU Dr 


%* 
%* 
* 
%* 
für Applesoft-BASIC * 
* 
* 
%* 
%* 


B.: & X$, 29 


“KR KK KK KH KO NR 
N 


* 
* 
* 
RK RK RK RK ak aka 
* 

FORPNT EQU 

GDBUFS1 EQU 


STRCPY EQU 
CHKSTR EQU 


CHKCOM EQU 
PTRGET EQU 
ERRDIR EQU 
STRLIT1 EQU 
GETBYT EQU 
NUMBER EQU 
* 


CLC 
BCC 
%* 
* => modifizierte INALL-Routine 
. 
JSR ERRDIR 
JSR PTRGET 
JSR CHKSTR 
FORPNT 
STY FORPNT+1l 
JSR CHKCOM 
JSR GETBYT 
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8016: 86 EB 39 STX NUMBER 1380 %& -> Eingabefeld (Punkte) anlegen 


8018: FQ 1D 40 BEQ GETX ;immer 131 # 
41 * 8071: A9 AE 132 FELD LDA #SIGN 
42  %* => Ampersand-Vektor setzen! 8073: 99 BB 02 133 STA BUFFER,Y 
43 “ 8076: 28 ED FD 134 JSR COUT 
44 x ADRESS ist der Zeiger im 8079: C8 135 INY 
45 * Betriebssystem auf die Start- 807A: CA EB 136 CPY ANZAHL 
46 x adresse des Programms: 807C: DB F3 137 BNE FELD 
47 . 138 * 
48 - DOS 3.3 = $AA72 139 % -> Ausgabepunkt zurückstellen 
49 % ProD0OS = $BEB9 140 x 
59 * (BASIC.SYSTEM 1.9) 807TE: 99 BB 02 141 STA BUFFER,Y 
51 ADRESS EQU $AA72 8081: AY 88 142 LDA #988 ;‚BS 
52 - 8083: 20 ED FD 143 FELDIl JSR COUT 
8DlA: AY AC 53 AMPER LDA #$4C ;JMP 8086: 88 144 DEY 
8ßdlCc: 8D F5 93 54 STA $3F5 8087: CA EC 145 CPY PTEND 
8ölF: 18 55 CLC 8089: DO F8 146 BNE FELDIl 
8020: AD 72 AA 56 LDA ADRESS 147 x 
8023: 69 93 57 ADC #$93 148 % -> kein Cursor, wenn Zeilenende 
8025: 90 93 58 BCC AMPERl 149 x und Zeile voll 
8027: EE 73 AA 59 INC ADRESS+1 150 x 
802A: 8D F6 03 6% AMPER1 STA $3F6 808B: AA ED 151 CUR LDY PTAKT 
802D: AD 73 AA 61 LDA ADRESS+1 808D: CA EB 152 CPY ANZAHL 
8030: 8D F7 03 62 STA $3F7 8d8F: DO PB 153 BNE CURSOR 
8033: 69 63 RTS 154 x 
EA aka ae ek aka ea aka 8091: AD BB CO 155 CURI LDA $Co99 
65 * Modul: GETX “ 8094: 10 FB 156 BPL CUR1 
&& ara akeake lea ea ak ae aa ae aaa ea ea aaa 8096: AE 10 CO 157 LDX $cQ1® 
67 * 8099: 18 158 CLC 
68 SIGN EQU $AE aM 809A: 90 3B 159 BCC WAS ‚immer 
69 DELETE EQU $FF 160 x* 
7® BUFFER EQU $9299 161 %& -> Cursor-Routine 
71 IQERR EQU $E199 162 x 
72 COUT EQU $FDED 809C: A9 DF 163 CURSOR LDA +#$DF an 
73 BELL EQU $FF3A 809E: 20 ED FD 164 JSR COUT 
74 %* 80Al: AY 88 165 LDA #$88 ;‚BS 
75 * -> Interne Register: 80A3: 20 ED FD 166 JSR COUT 
, 76 * 8DA6: 38 167 SEC 
77 ANZAHL EQU NUMBER ; ($EB) 168 * 
78 PTEND EQU $EC 169 x Tastenabfrage und Warteschleife 
79 PTAKT EQU $ED 170 x 
80 ZEIGER EQU $71 80A7: A2 Bd 171 KEYWAIT LDX +#$09 
81 x* 80A9: AB AB 172 LDY #169 ;Frequenz 
82 %* -> Pointer rücksetzen und Text 80AB: AD BB CO 173 WARTEN LDA $cdpp 
83 * aus der Variablen übernehmen, 8PAE: 30 18 174 BMI TASTE 
84 x* wenn vorhanden. 80Bß: E8 175 INX 
85 * 80Bl: DO F8 176 BNE WARTEN 
8034: AC 99 El 86 IQERR1 JMP IQERR 80B3: C8 177 INY 
87 “ 80B4: DB F5 178 BNE WARTEN 
8037: AB BB 88 GETX LDY #$99 179 x 
8039: 84 ED 89 STY PTAKT 80B6: 90 EA 189 BCC CURSOR 
803B: 84 EC 99 STY PTEND 80B8: AA ED 181 LDY PTAKT 
91 * 80BA: BY BB B2 182 LDA BUFFER,Y 
803D: Bl 85 92 LDA (FORPNT),Y 80BD: 20 ED FD 183 JSR COUT 
803F: FO 30 93 BEQ FELD 8dCch: AY 88 184 LDA +#$88 ;BS 
8041: C5 EB 94 CMP ANZAHL 80C2: 20 ED FD 185 JSR COUT 
8043: FO 92 95 BEQ OKAY 80C5: 18 186 CLC 
8045: B® ED 96 BCS IQERRI 80C6: 90 DF 187 BCC KEYWAIT ‚immer 
8047: 85 EC 97 OKAY STA PTEND 188 x 
8049: 85 ED 98 STA PTAKT 189 %* -> Taste gedrückt! 
9 x% 1908 x* Letzten Buchstaben drucken 
100 %* -> Variablenpointer auf Text im 191 x 
101 x Speicher in Zero-Page poken 80C8: AA 192 TASTE TAX ;A retten 
102 x 80C9: AA ED 193 LDY PTAKT 
8BAB: C8 193 INY j 8ßcB: BI PO P2 194 LDA BUFFER,Y 
804AC: Bl 85 194 LDA (FORPNT),Y 8SÖCE: 28 ED FD 195 JSR COUT 
8ß4AE: 85 71 105 STA ZEIGER 80D1: AY 88 196 LDA +#$88 ‚BS 
8050: CB 196 INY 80D3: 28 ED FD 197 JSR COUT 
8051: Bl 85 197 LDA (FORPNT),Y 198 x* 
8053: 85 72 108 STA ZEIGER+1 199 %* -> Befehl oder Zeichen? 
109 x 200 x 
11® %* -> Text aus der Variablen in 80D6: 8A 201 TXA ;A holen 
1ll x Puffer und auf Bildschirm 80D7: AE 1® CO 202 WAS LDX $cPd1® 
112 x bringen; dabei Bit 7 auf 8PDA: CY9 88 203 CMP #136 
113 x l setzen 8ßDC: FB AB 204 BEQ BACK 
114 x 8ßDE: C9Y 8D 205 CMP #141 
8055: AB 99 115 LDY #$9® 8SdEß: FO 29 206 BEQ RETURN 
8057: Bl 71 116 MOVE LDA (ZEIGER),Y 8dE2: C9 95 207 CMP #149 
8059: 09 80 117 ORA #Z10000009 ;Bit 7” = 1 8dEA: FO 35 208 BEQ VOR 
805B: 99 BB B2 118 STA BUFFER,Y 8DE6: C9Y 9B 209 CMP #155 
8ß5E: 28 ED FD 119 JSR COUT 80ES: FO 2D 219 BEQ ESC 
8sd6l: C8 129 INY 8DEA: C9 FF 211 CMP #+#DELETE 
8062: CA EC 121 CPY PTEND SEC: F® 1B 212 BEQ DEL® 
8064: DO Fl 122 BNE MOVE 8SDßEE: C9 AB 213 CMP #169 :Ctr1?7 
123 x SöFß: 90 99 214 CUR2 BCC CUR 
8066: CA EB 124 CPY ANZAHL ‚Feld 215 %* 
8068: DO 97 125 BNE FELD ;voll? 216 %* -> Zeichen in Puffer speichern 
806A: AY AE 126 LDA #SIGN 217 x und auf Bildschirm ausgeben 
sdEC: 99 BB B2 127 STA BUFFER,Y 218 % 
8SÖ6F: DO 1A 128 BNE CUR 8ßF2: A6 EC 219 LDX PTEND ‚Zeile 
129 x 80F4: EA EB 220 CPX ANZAHL voll? 
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Ausgabe mi: 


TYPETERM® 
JUNIOR 


® 3 verschiedene Schriftstärken 

® Automatisches Uhnterstreichen 

® 2 Zeichensätze deutsch/ASCIl 
(m. ASCII-Typenrad) 

® 2 Zeichenabstände 

® Für alle Betriebssysteme 


ab DM 899,-— incl. AX-10 


TYPETERM - Mit diesem steckfertigen Interface an Ihrer BROTHER-Typenradschreib- 
maschine lassen Sie Ihren APPLE korrespondenzreif schönschreiben. Wenn Sie 
wollen, benutzen Sie mit allem Komfort die Schreibmaschinentastatur zur Eingabe für 
Ihre Textverarbeitung oder als Ersatz für Ihr Keyboard. Anschließend druckt oder 
schreibt Ihre Schreibmaschine wahlweise ASCII- oder deutschen Zeichensatz, Hoch- 
und Tiefstellungen, automatisch unterstreichend in variablen Zeichen- und Zeilen- 
abständen, viele Sonderzeichen und vieles andere mehr. Selbstverständlich für alle 
Betriebssysteme. Ideal für den beliebten Wordstar unter CP/M. Die moderne elektroni- 
sche Typenradschreibmaschine steht Ihnen natürlich auch allein weiterhin unverändert 
zur Verfügung. 


TYPETERM JUNIOR - wahlweise mit AX-10 oder CE-25. Unsere besonders günstigen 
Gespanne zur Ausgabe am APPLE, ebenfalls steckfertig. Mit Ihrer Textverarbeitung und 
TYPETERM JUNIOR können Sie dann selbstverständlich auch in verschiedenen 
Schriftstärken wahlweise im deutschen oder ASCIl- 
Zeichensatz schönschreiben, zentrieren, automatisch 
unterstreichen und rechts- oder linksbündig schreiben. 
Für alle Betriebssysteme. Auch als moderne elektro- 


TYPETERM - ein starkes Interface für starke 
Maschinen! 
® Alle Cursor- u. CTL-Befehle bei Eingabe. 
® 2 Zeichensätze deutsch/ASCIl 
(m. ASCII-Typenrad) 
® Für alle Betriebssysteme 
® Hoch/Tiefstellen, autom. Unterstreichen 
® Var. Zeichen- u. Zeilenabstände 
® Autom. Papierzuführung mit CF-100 
(ab EM-80) vom Stapel usw. 


Ausgabe und Eingabe mit 


TYPETERM® 


im Slot Ihres 


APPLE IV/lle 


Das bedeutet: Computertextverarbeitung, Datenbank- 


systeme usw. von der Schreibmaschinentastatur. 
ohne Umbau. Kein weiteres Interface 
erforderlich. 


Steckerferti 


TYPETERM-Interface 
für CE-51 bis EM-250 





Paketpreise: 
Alle Maschinen bereits incl. 
TYPETERNM Interface (DM 479,-) 





CE- 51 mit TYPETERM . 
CE- 61 mit TYPETERM . 
CE- 68 mit TYPETERM . 
CE- 70 mit TYPETERM . 
EM- 80 mit TYPETERM . 
EM- 85 mit TYPETERM . 
EM-250 mit TYPETERM . 


ab EM-80) . 


Preisliste kostenlos 
Katalog DM 2,- 
in Briefm. 


Unser Dezember-Angebot: 


Profimax Ile, APPLE Ile kompatibel, 
IBM-Look nur 1398.— 


Profimax Ill, APPLE II+ kompatibel, 
2 Prozessoren IBM-Look nur 1098,— 


Chinon-Laufwerk 051A nur 
Video-Digitalisierer incl. Software nur 
STAR sg-10, original, mit Serien-Nr. nur 


Centronics-Interface, grafikfähig nur 


D.O.S Computersysteme 


der Partner für Schule, Hochschule, Forschung, Fertigung 


Am Kühnbach 42, 7170 Schwäb. Hall 11 
Tel. 07 91/5 1736 
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AX-10 mit TYPETERM JUNIOR 
CE-25 mit TYPETERM JUNIOR 


TYPETERM-Kit für CE-50 





Cable Kit A (immer erford. 


AX-10 


Die Zukunft heute 


[.\-7.\oJo]|/| 


Ihr Computer-Fachhändler seit 1979 


Unsere Apple - Hits 


Preise gültig solange Vorrat reicht 


10 Disketten Durolife 


Schalt-Netzteil 
Disk-Controler-Karte 

80 Zeichen-Karte m. Softswitch 
Disk-Laufwerk 

Disk-Laufwerk Chinon 
DRUCKER FÜR IHREN APPLE 
Epson FX-85 

Panasonic KX-P 1091 

Riteman F+ 

Riteman Inforunner 
Typenraddrucker 

MONITORE 

9”, grün, 18 MHZ 

Philips TP-200, grün 
Pal-Farbmonitor 
FISCHER-TECHNIK 

Set Computing 

Interface für Apple 

Netzteil 


Bestellungen bitte nur schriftlich an: 

Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50 
Mindestbestellwert: 50,- DM 

Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 7003 08 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
Ginnheimer Landstraße 1 





nische Typenradschreibmaschinen können sich 
AX-10 und CE-25 sehen lassen: Lift-off-Korrektur, 
schneller Typenradwechsel im Drop-In-System für 
viele verschiedene Schriftarten, 40-bzw. 20- 
Zeichen-Korrekturspeicher usw. usw. 


« 
interlom Kock & Mreches GmbH 
Postf. 3004 Isernhagen 4 


electronic Telefon 05139-87393 








Apple und IBM 
kompatible Computer 


16K, Z80, Diskcontroler je. . . . . 75,- 
80 Zeichenkarte mit Softswitch 

2 Zeichensätze 
Motherboard 48K ohne Firmware 
Erphi-controler mit Autopatch 
Siemenslaufwerk F 122 
TEAC FD-55B 2 x 40 Track . 
TEAC FD-55F 2 x 80 Track . 
FD4 Spezialcontroler für Laufwerke 
mit bis zu 2 x 80 Track 
Drucker Star SG 10 
Monochrome Monitore . 
Farbmonitore . . ab 998,- 
Tastaturen für IBM und Apple ab 330,— 
Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 
Preissenkung: 
128K Karte (Saturn kompatibel) . 
Preissenkung 4164-200 ns 
Mindestabnahme 20 Stck... . . . . 3,90 
Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 Pf: 250 166 
5090 Leverkusen Fettehenne 
Telefon 02 14/9 37 81 


. 149,— 
. 419,- 
. 300,— 
. 515,— 
. 448,— 
. 475,— 


. 130,— 
940,— 
ab 375,—- 


375,— 





=> ZZ PC-48 Computer, 48 KB, o.EPRONS 799, - Zusätze rär Apple Il: 16 bit Computer und Zubehör: Multifunction Card NF 610 v.o.max.304KB 439,- fm 
= = 2 == PC-64 Computer, 64 KB, o.EPRÜNs 899, - 16K Karte 9,- PC-88 Motherboard, IBM-PC kompatibel, 1198, - Serielles Interface i Port bestückt 109, - - 

em m PC-64zE Computer, 64 KB + 780, o.EPRONs 1198, - 180 Karte 79,- 256 KB bestückt,bis 640 KB erweiterbar dito, jedoch beide Ports bestückt 149, - 
BE ie A Pakete bestehend aus Computer,Disk, Controller: 30-leichenkarte mit Softswitch 179, - PC-87XT Motherboard, IBN-PC kompatibel, 599, - Uhrenkarte m.Akkupufferung und Softvare 159,- oO 
Paket 48, incl. 1 DISTAR + Controller 999,- Disk Controller f. 2 Laufverke 79,- max. 640KB on board, OK bestückt. Parallel-1/0 /Timer Card 199, - => 
Paket 64, incl. 1 DISTAR + Controller 1099, - Drucker Interface wie Grappler mit Kabel 99,- Color Graphic Card 289, - AD/DA Card, 12 bit, 16 AD + 1 DA-Kanal 429,- „N 
1 es Paket 64zE, incl. 2 DISTAR + Controller 1899,- Drucker Interface w.0.,n.64KB Buffer 499,- Monochron 6raphic/Printer Card 389,- MULTI-1/0 /DRIVE Card, Disk Controller, 49,- LLJ 
Drucker Interface nit Kabel f. ITOH/NEC 99,- Netzteil 130W 359,- 1 paralleles + 1 serielles Interface, (5 

Tastaturen: Joystick n.Autocenter,Trinunng, Feuerknopf 69, - Gehäuse f.PC-BB/PC-B7-Platine 211,- Uhr mit Akkupufferung, Joystickanschluß 

Info JE, DM 1,40 in Briefmarken OPERATOR I 548, - Joystick,v.o.,stabiles Metallgehäuse 49,- 512K Karte, OK bestückt 169, - Harddisk und cc 
OPERATOR 11 599, - 128K RAN Karte 429,- Wire-Wrap Karte 79,- HD-Controller/kestern Digital WDS 1002 WI2 w 
SPRINGMANN COMPUTER GmbH OPERATOR Ile 719,- Super-serielle Karte nit 6551 179, - RON Card f.6 Stck. 28pol. Sockel 69,- Bitte anfragen ! Br 
er: Keyboard, CHERRY-Tasten, deutsches Layout, 299, - 6522-Karte nit 216522 . 89, - Joystick, Autocenter u. Trinaung 69,- Diskettenlaufverke: DO 
Stöckener Str. 1393 10programaierbare Funktionstasten, für Graphic House incl.Softvare ähnl. Koala 189,- Joystickadapter 89, - DISTAR f. Apple II, II+, Ile 369, - z 

= Apple II und -kompatible, m.DBI15 Stecker EPROM BURNER plus+ 373, - Multifunction Card MF 605 max. 256KB, 379,- DISTAR f. Apple Ilc 389, - 
SEE Hannover 21 Keyboard,CHERRY-Tasten f.IBN-PC, US ASCII 299,- | BURNER 48 (Zusatz für BURNER plus+) 218,- | Ok bestückt, I paralleles, I serielles Diskettenlaufverk 48 tpi, 2-seitig, 309,- 
Tel: 0511-73 11 11 Tix: 9714565 compSs J Keyboard wie oben, deutsches Layout 279,- Gehäuse, Metall, f.APPLE, ähnl.IBM PC 22,- Interface, Uhr nit Akkupufferung 5.25*, slimline, Shugart-Bus, für IBM-PC = 
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BEQ EOL 
CPY PTEND ‚Insert? 
BNE INSERT 


STA BUFFER,Y ‚Append! 
JSR COUT 
INC PTAKT 
INCR INC PTEND 
CUR3 CLC 
BCC CUR2 
DEL® BEQ DEL 
* 
* -> Return 
* 
RETURN LDX PTEND 
RETURN] JSR GDBUFS1 
INY 
JSR STRLITI 
JMP STRCPY 
* 
* -> Escape 
%* 
ESC LDX #9 
BEQ RETURNI 
* 
* -> Cursor vorrücken 
%* 
VOR CPY PTEND ‚Zeilen- 
BEQ CUR3 ‚ende? 
%* 
LDA BUFFER,Y 
JSR COUT 
INC PTAKT 
BNE CUR3 
* 
* -> Backspace 
%* 
BACK CPY #$9® ‚Zeilen- 
BEQ EOL ‚anfang? 


LDA +#$88 ;BS 

JSR COUT 

DEC PTAKT 

CLC 

BCC CUR3 ‚immer 
%* 


* -—> Anzahl voll (Warnung)! 
* 
EOL JSR BELL 

BNE CUR3 


* 
* -—> Text einfügen wenn: 
* PTAKT <> PTEND 
* 
INSERT TAX ;A retten 
LDY PTEND 
MOVEUP DEY 
LDA BUFFER,Y 
STA BUFFER+1,Y 
CPY PTAKT 
BNE MOVEUP 


TXA ;A holen 
STA BUFFER,Y 

JSR COUT 

INC PTAKT 

CLC 


%* 

* -> veränderten Pufferinhalt 
* ausgeben 
* 
U 


PDATE LDY PTAKT 

PHP 

UPDATI LDA BUFFER,Y ;Puffer- 
JSR COUT ‚inhalt 
INY ‚ab PTAKT 
CPY ANZAHL ;aus- 
BNE UPDATI ‚geben 

* 
LDA +#$88 ;‚BS 

PRINTB JSR COUT ‚Ausgabe 
DEY ;‚zurück- 
CPY PTAKT ‚stellen 
BNE PRINTB 


PLP 
BCC 
DEC 
BCS 
. 
* -> Delete 





312 * 
8173: CO BP 313 DEL CPY +#$99 ;‚Zeilen- 
8175: FB 8F 314 BEQ CUR3 ‚anfang? 
315 #* 
8177: C6 ED 316 DEC PTAKT 
8179: 88 517 DEY 
817A: B9 01 02 318 DELI1 LDA BUFFER+1,Y ;Puffer- 
817D: 99 8 d2 319 STA BUFFER,Y ;inhalt 
8180: C8 329 INY ‚ver- 
8181: C4 EC 321 CPY PTEND ‚schieben 
8183: DO F5 322 BNE DELI 
323 %* 
8185: A9 AE 324 LDA #SIGN 
8187: 99 BB 02 325 STA BUFFER,Y 
818A: AY 88 326 LDA +$88 ;BS 
8l8C: 20 ED FD 327 JSR COUT 
8l8F: 38 328 SEC 
8190: BB Cc2 329 BCS UPDATE ‚immer 


402 Bytes 


Arne Schäpers 


Bewegte Apple-Graphik 


DOS Toolkit-Erweiterungen 


1985, 305 S., zahlr. Abb., 
kart., DM 58,— 
ISBN 3-7785-1150-5 


„Bewegte Grafik, Apple DOS Toolkit Erweiterungen“ wen- 
det sich als lehrbuchhafter Kurs an alle, die professionelle 
hochaufgelöste Grafiken auf dem Apple erzeugen wollen. 
Der erste Teil beginnt mit einem Abriß des Aufbaus der 
HGR-Seiten aus der Sicht des Programmierers. Danach 
wird das Programm HRCG (Hires Character Generator, 
Apple, Inc.) eingehend analysiert, und sinnvolle Ergänzun- 
gen werden vorgestellt. Schrittweise wird die Nutzung des 
HRCG erarbeitet bis hin zur beliebigen Bewegung eines 
statischen Objekts auf einer der HGR-Seiten. 


Der zweite Teil baut auf dem ersten auf und führt über die 
Definition mehrerer Objekte und simultaner Bewegung hin 
zu einem Arcade-Spiel, das für die meisten käuflichen Ac- 
tion-Spiele in der meisterhaften Grafik als Vorbild dienen 
kann. Zielgruppe sind Programmierer, die mit Basic keine 
großen Schwierigkeiten mehr haben und zumindest über 
praktische Grundkenntnisse in 6502-Assembler verfügen 
sollten. 


Dr. Alfred Hüthig Verlag 
Im Weiher 10 
6900 Heidelberg 1 
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ProDOS-Analyse 


Versionen 1.0.1, 102,111 





Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 320 S., kart., DM 68,— 
ISBN 3-7785-1134-3 





Ulrich Stiehl 


Apple Assembler 

1984, 200 S., 3 Abb., kart., 
DM 34,— 

ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 1028 69, 6900 Heidelberg 1 





AmeSchpers 


Bewegte 
Apple-Grafik 


DOS Toolkit-Erweiterungen 





Arne Schäpers 
Bewegte Apple-Grafik 


1985, 305 S., 6 Abb., kart., 
DM 58,— 
ISBN 3-7785-1150-5 


ee ee BE UP U EI U 


un ee Tips 
Ulrich Stiehl und 
Tricks 


2. Auflage 





Ulrich Stiehl 
Apple DOS 3.3 
Tips und Tricks 


2., durchges. Auflage 1984, 
216 S., kart., DM 28,— 
ISBN 3-7785-1049-5 


Computerbucher 


diegehen, für Computer 
die kommen. 





Frank Bühler 


Applesoft BASIC 


/ıps -, 
Fricke 


Frank Bühler 
Applesoft Basic 
Tips und Tricks 


1985, 241 S., 40 Abb., kart., 
DM 38,— 
ISBN 3-7785-1094-0 


für Aufsteiger 


Mit ausführlichen 
Ulrich Stiehl Programmbeispielen 


2. Auflage 


Ulrich Stiehl 
ProDOS für Aufsteiger 
Band 1 


2., geänderte Auflage 1985, 
208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 








[1 











nn 


BER 


Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 





Jürgen Kenhrel 
Assembler lernen 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 


1985, ca. 200 S., kart., 
DM 38,— 
ISBN 3-7785-1151-3 


Mit ausführlichen 
Ulrich Stiehl Programmbeispielen 


arte 
a" “ 


Tips ' 
und 
„ Tricks : 


” 
= 
Poggrt 





Ulrich Stiehl 

ProDOS für Aufsteiger 
Band 2 

1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 














Verkauf Software Verkauf Hardware 


Astrologie: Berechn. u. Graphik. 
Info n. voreins. 1 DM in Briefm., 
C. Landscheidt, Im Dorfe 14, 
D-2804 Lilienthal. 


Computer-Literatur: 
Liste bei: Lindemanns 


Buchhandil. kostenlos. 
Nadlerstr. 10, 7000 Stuttgart-1 


ereitk WARGAMES rt 


Die Besten von SSI für APPLE C 
64 ATARI. 
Info gegen 80 Pfg. RP 


Computer-Service Th. Müller 
Postfach 2526 
7600 Offenburg 


— -— STOCKMASTER II — — — 
Das Apple-Programm für echte 
Börsengewinne. Diskette 485,- 
DM. Beschreibung P12 anfordern 
bei Töngi, COMPUTER-PRAXIS, 
Aspeltstr. 4, D-6500 Mainz 1 


PIRATE DEFENCE 2.0 Kopier- 
schutz gehört zu den sichersten 
Schutzsystemen Deutschlands. 
Für DOS, ProDOS, DIVERSI u.a. 
Info (50 Pf), Chr. Bregler, Tul- 
penstr. 2, 7519 Eppingen. Händ- 
leranfragen erw.! 


Software-Uhr f. Apple Il+ e, 
c ausbaufähig zum Zeitschalter 
Diskette + Anleitung DM 25,- 
Dortmund, T. 391920 


Diverse Software für Apple Ile 
zu verkaufen. Nur Originale. Liste 
gegen freien Rückumschlag. 
Michael Sprengel 

Amselweg 4 

7903 Laichingen 3 


Apple: Public Domain: Volume 
DM 15, Games, Schach, Graphic 
etc. Derw. Lehrerpro. Gratisinfo: Fa. 
Waltrau. Muhle Waldwinkel 3, 2105 
Seevetal 3 


Apple Pascal 1-2 u. Apple 
Works! Original! Hälfte NP! C. v. 
Fournier, Fasanenstr. 4, 8550 
Forchheim (2259) 


Apple Il emuliert Sharp- 
Pockets! Prgrübertrg. v. Gamep. 
z. 11-Pincon. Info geg. 2x80 Pfg- 
Brfmk., K. Schmidt, Hasenclever- 
straße 25, 2000 Hamburg 74 
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Apple-SUPERANGEBOT 
Apple Il 

PAL-Farbinterface 85,— 
A2 Language Karte 16KB 120,- 
Apple Pilot, Sprache 97,- 
Quickfile Ile (deutsch) 59,- 
6502 Hardware Manual 14,— 
6502 Programmier Manual 14,- 
Stand f. Monitor Ill 19,- 
Apple Ill 

Apple Ill 256 KB 2330,— 
Profile 5 MB Laufw. 1420,— 
Silentype Drucker 235,— 
Silentype Papier (15) 47,- 
Parallel Interface 150,- 
Visicalc II 160,— 
Mail List Manager 99,— 
Hand Holding Basic 60,— 
Apple Writer Ill 150,— 
Business Graphics A Ill 105,- 
Access Ill 90,- 
Pascal Ill Utility Lab. 45,— 


Weiterhin bieten wir an: 

INTRO 8-Zoll-Diskettenlaufwerk 
für Apple Ill, kompl. 1256,— 
Täglich von 9.00 bis 16.00 Uhr 
Tel.: 0228-268 4296 u. 268 4213 
Bonndata GMBH, Poppelsdor- 
fer Allee 27-33, 5300 Bonn 1 


Verkaufe Apple Zusatzkar- 
ten: 


16K, Z80 Karten 75,- DM 
80 Zeichen Karten 180,— DM 
128KB Karten 205,— DM 
ERPHI CONTROLLER 

nur 278,—- DM 
TEAC FD-55-FV nur 398,—- DM 
le Kompatibler nur 1710,-— DM 


auch IBM-Karten / Infos kostenlos 
Axel Braukmann, Am Sportplatz 51 
4005 Meerbusch-2, 

Tel. 021 59/36 26 


Verk. w. Syst. w. neuw. Apple- 
komp. IBS-Space-84, 192 kB RAM, 
Knürrgeh., Lüft., sep. Tast., Taxan 
Mon. gn., Z-80 Card, Z-80B Card 
(IBS AP-22, 64 kB, 6 MHz), Floppy- 
Contr., Ehring-Contr., Epson Druk- 
kerinterf., 80-Z. Videx Ultraterm, 
orig. The Clock, Supertalker (dig. 
Sprachein- u. ausg.), 1 Floppy 135 
kB, 2 Teac FD 55 A (140 kB), 2 
Teac FD 55 F (640 kB), orig. Apple 
Graphik-Tabl. Tel. 08084/3627 
nach 18 Uhr. 


Apple Il + 64K Disk Minotor 
VIDEX Z80 PAL Div. Softw. CP/M 
Finanz Wirtsch, Spiele Literatur 
Handbü. DM 3000,— 

Tel.: 030/4045247 


Fernschreiberinterface am 
Gameport m. Programm DM 79,— 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


pEel 


örse 

Verk. Apple Ile, 64K RAM, mit 
Bildschirm, Disk. Laufwerk, Matrix- 
drucker, Z80-Karte, CP/M-Karte, 
Grafikf. mit umfangreicher Soft- 
ware (DB2, Wordstar uva.). VPDM 
5.500, Tel. 06203/65730. 


3 Drucker an einen Compu- 
ter? 3 Computer an einen Druk- 
ker? Info: Fricke Computertechnik, 
Wattstraße 30, 2400 Lübeck, 

Tel. 0451 /604749 


Epson Interfaceumbau 
f. AWorks DM 20. Mahr, Waldak- 
ker 71, 73 Esslingen 


Apple Ile, 2 Disk Il mit 
Contr., 1238 KB. 80-Zeichen 
Card, Super Serie Il Card, Printer 
Card, Z80 Card (CPM), Joystick, 
DM 3600. 2 x 640 KB TEAC FD55 
Drives incl. Contr. im Gehäuse an- 
schlußfertig DM 1300. Alles zus. 
nur DM 4600. Tel. 07181/61540 
ab 19 Uhr. 


Apple Ili+ 64K, Z80, 802, 2 
Floppy, Monitor, Drucker, viel Soft- 
ware, Lit., DM 2600,— 

Tel. 07151/61584 


Apple Ile, 1 Disk+Contr., Mo- 
nitor, Prem. Softc. (Z80B, CP/M, 
80ZZ, + 64K) für DM 3000,— 

T. 08231/85624 


Ramworks-Karte 512KRAM 
DM 1500,- / sFr 1250,—. Mit AW- 
Patch für Apple Ile. Z-RAM 512 
KRAM+CP/M DM 2300,- -/sFr 
1950,- Für Apple IIc. Weiteres div. 
Zubehör Liste Verl. 

Tel. Schweiz 061/47 8934. 


Verk. Apple Ile Comp. 128KB 
Ram Z80-Prozessor, 80 Zeichen, 
Joyst. 2 Laufwerke 35/40, Monitor, 
sep. Tastatur #** VHB 3300,— **%* 
Michael Knöpel, Tel. 062 41/61 22 


ZUFALLGENERATORkarte 
für Apple Il. Echte Zufallzahlen 
durch Halbleiterrauschen. DM 98,— 
incl. Versk. per NN. Ralf Pagel, 
Schönberger Str. 14, 2300 Kiel, 
T. 04 31/7296 31 


MAC 128 auf 512K DM 798-Bau- 
satz kompl. DM 293,-, Tel. 18.00 h, 
T. 089/ 985898 


Apple Ile mit Bildschirm + 
Lüfter 128K Z80 1 Teak Doppellauf- 
werk a. 360 K umschaltbar 40/80 Tr. 
VB DM 3500,-, Tel. 040/601 0051 


Apple Il+, 64K, 20rig. Disks, 
Monitor, 80Z-K., Z80-K., komplett 
oder einzeln, Preis VHS, 

T. 06221/861633 


Erphi-Contr. 193,—, 
T. 0711/424325 


ER IIIPIN 


ERPHI-SYSTEM Erphi-Control- 
ler 275,-—, 2 x TEAC FD55 F(2 x 
80 Sp) a 460,- oder komplett 
1150,— (alles neuw.) Schoeben 
Udo, Tel. 0821/152377 


Akustik-Koppler, Dataphon 
s21d Anschlußkabel, Terminalpro- 
gramm neu, DM 360,-, 

Tel. 02666 / 704 


Original Apple 802/Z-Karte {. 


Ile m. Buch DM 120,— 
Tel. 07159/3602 


Ankauf Software 


Finanzbuchhaltungs-, Auf- 
tragsabwicklungs- und Lohnbuch- 
haltungs-Programme für den Apple 
II+ gesucht. T. 051 64/8566 


Ankauf Hardware 


Suche Apple-Interface für 
Schreibmaschine TA 8008 Gabrie- 
le. Wer kann helfen? 

Tel. 0461/25999 


Suche Interface (RGB II B-80) 
für TAXAN-Monitor. M. Rosbund, 
Eierwiesenstr. 62, 7024 Filderstadt 1 


Wer kann mir bei Problemen 
mit CP/M helfen? Gernot Wid- 
mann, T.0 7193/6286 ab 18 Uhr. 


Verschiedenes 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/2768864, Tx. 772642 aaad 
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Ja, ich möchte peeker abonnieren. 

Liefern Sie mir peeker ab Ausgabe ................. (1985 erscheinen 11 Ausgaben — 
1 Doppelnummer) zum Jahresbezugspreis von DM 72,- (Inland) incl. MwSt. Die 
Lieferung erfolgt frei Haus. Porto, Verpackung und Zustellgebühren übernimmt 
der Verlag. Der Jahresbezugspreis für das Ausland beträgt DM 72,- incl. MwSt. , 
zzgl. DM 16,80 Versandspesen. 








Ich habe Ba Kenntnis genommen, 
daß ich die Bestellung schriftlich 
ı duch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
DS Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
_ _ wahrung genügt die rechtzeitige Ab- 
„sendung des Widerrufs .. des 
er 








Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 


| es | 
Postfach 102869 
6900 Heidelberg 1 


Bank / PschA 


Bankleitzahl Kto.-Nr. 


8 Abo-Karte 





Datum Unterschrift 


749994 PEEKER 94 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 


_ Für I Ihre Unterlagen 
_ Folgende Bücher bestellt: 





am: 
bei: 





peeker 
Versandbuchhandlung 
Postfach 102869 
6900 Heidelberg 1 


. Für 1r . Unterlagen | 
Folgende Disketten . 
| uns ee bestellt: | 


Datum Unterschrift 


2: Buch-Shop 











| © Bitte senden Sie mir 

u gegen Rechnung folgende Apple-Programme: 
| oO L[] Peeker-Sammeldiskette, einzeln [I] Apple DOS 3.3, Begleitdiskette, DM 28,- 
| Disk# _____, Disk# [I] Apple ProDOS, Band 1, Begleitdiskette, 
| SL Disk# ______, Disk# DM 28,— 
| 5 Preis je Disk DM 28,- (einzeln) [I] Apple ProDOS, Band 2, Begleitdiskette, 
M | DM 28,— 
| & U] Peeker Sammeldiskette, DI) Apple Assembler, Begleitdiskette, DM 28,— 
oO im Fortsetzungsbezug OD] ProDOS-Editor 1.0, Programm, DM 98,- 
M ab Disk # ——— OD) MMU 2.0, Programm, DM 98,- 
| (Mindestbezug 6 Disketten) D INPUT 2.0, Programm, DM 98,- 
| Preis je Disk DM 20, OD] Softbreaker 1.0, Programm, DM 48,- 
Aha OD CPMi DO) CP/M nei [] DB-Meister, Programm, DM 290,— 
M o [ re [ Ten O Superplot, Programm, DM 48,- 
2 177) [] Superquick, Programm, DM 48,— 
nn Datum Unterschrift 











Straße 


PLZ/Ort 

Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

7 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Poststempels). 






Datum 


Unterschrift 

Verlagshinweis: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 
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Telefon mit Vorwahl 
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Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 


PLZ/Ort 


Telefon mit Vorwahl 
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POSTKARTE 


peeker 
Leserservice 


Postfach 10 28 69 
6900 Heidelberg 1 


POSTKARTE 


peeker 
Versandbuchhandlung 


Postfach 10 28 69 


6900 Heidelberg 1 


POSTKARTE 


peeker 
Softwareabteilung 


Postfach 10 28 69 


6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stiehl 

1984, Diskette und Manual, DM 98,- 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen, 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder Ilc; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98, — 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple Ii Plus, doch ist „MMU 2.0° 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Appie Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 48, — 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple lle) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 





PEE 


KER 4 


Börse 


Verschiedenes 


Es geht doch: APPLEWORKS 
auf II+ u. Kompatiblen. Info: Fa. 
Paul Arping, T. 0431/7371135 


Börsen-Programme für Apple 
Il gesucht. Angebote an Nortmann, 
Schaperstr. 24, 6200 Wiesbaden, 
T. 06121-527820 


Horoskop-Programme für 
Apple II gesucht. Angebote an 
Nortmann, Schaperstr. 24, D-6200 
Wiesbaden, T. 061 21-52 7820 


Apple 256-KB-RAM-Floppy 
349,-— DM, 128-KB-Karte 249,—- 
DM mit Softw. Accelerator-Karte 
599,— DM, TFM Il Supermodem 
300, 1200, 1200/75 Bd. nur 478,— 
DM — FUCOM GmbH, Postf. 483, 
4600 Dortmund 1 


Hard- und Software für Apple- 
Computer gesucht. Wer schreibt 
gute Software? Auch Gebrauchtes 
angenehm. Zahle Höchstpreise! 
Suche noch Leute, die nebenbei 
verdienen wollen. Zuschriften 
Chiffre P1005 


+ Kompatible 
Komp 48 
48 K. 6502 ohne Firmware 
Komp 64 


64 K, 6502, Z-80, 15er-Block 
ohne Firmware 


Komp 64 S 
wie Komp 64, jedoch mit abgesetzter 
Tastatur mit 188 Funktionen. 


Motherboard 48 K 
8 Slots, alle IC’s gesockelt, a 
‚ ohne Firmware, fertig geprüft N 


Motherboard 64 K 
wie oben, mit 6502 und 


N 


Alle Preise inklusive Mehrwertsteuer. 6 


XT16LC 


16 Bit 8088 Rechner 
vollständig kompatibel, ? 
ausgerüstet mit: 4 
Monochr. Grafik-Karte, 
256 KRAM, 

1 Drive, 360 K, 

grüner Grafikmonitor, 
deutsche Tastatur, 
130 W Netzteil 


AT 16LC 
mit 6 MByte Hard Disk 
AT 16 WLC 




















MCI XT16PC 


Monate $ & 
Garantie Versand erfolgt per NN oder Vorkasse $ \ 











1899 
3099 DM 


*%* Neue Bücher für den Apple Il x* 
Elektronik- und Graphik-Pro- 
gramme 

Die Programm-Fundgrube zu fol- 
genden Themen: Statistik, Filter, 
Netzwerke, Laplace- und Fourier- 
Transf., Komplexe Rechnung, Dia- 
gramme usw., zahlr. Abb., 184 S., 
16,5 x 23,5 cm, DM 39,80 

Apple li — leicht program- 
miert 

Der Wegweiser zum eigenen Pro- 
gramm: Zählen, Schleifen, Strings, 
Eingabe, Druckformatierung, Adress- 
verw. usw., 96 S., 16,5 x 23,5 cm, 
DM 22,80 

BASIC-Tricks für den Apple Il 
Die Trickkiste für die professionelle 
Programmgestaltung: Eingabe, Me- 
nüs, Sortieren, Listengestaltung, 
Fehlererkennung/Korrektur, Datei- 
en usw., 144 S., 16,5 x 23,5 cm, 
DM 29,80 

Bei Bestellung bitte DM 2,50 für 
Porto und Verpackung addieren. 
beam-Verlag, 

Pf. 1148P, 355 Marburg 


ES Sn Sn SS 2 D20 DS 2 Dr 2 2 2 2 nn 2 m 2 


630,- 


ER SR 52:54 BE, 
RR EEE GER Wan We Wr GR WR 


BE 


NY 


AR SE 
ar ; 


399- Klaus Jeschke 


u m N Hard-, Software 

I x = Viertstr. 3-13 
En EN 6233 Kelkheim 

; ® (06198) 7523 





SUPE 


» 





ORIGINAL 





mit Kabel + Gehäuse 





RPREISE 





FLÜSTER-FLOPPY 
CHINON F-O051A für Apple 
349 DM 





Peeker-Termine 


Ausgabe Anzeigenschluß 


Erstverkaufstag 
22.11.85 23.12.85 


20.01.86 





rür Apple Il, Ile 


80-Zeichen-Karte 
mit Sorftswitch, neue 
Vers. m. gest. scharf. Bild 


Speech-Karte 
Clock-Karte 
Super-Serial-Karte 
Komp 2E 


Apple 2E kompatible, Rechner 
64 K im 2E-Design, ohne Firmware 


80Z + 6AK-Karte 99,- 
für 2E kompatible 


Apple-Info 1,- DM (Porto) 


N 
E SCHI ZEN 


69. 139,- 


Z-80-Karte 

Disk-Interface 69,- 
Centronics-Interf. m. Kabel 69,- 
16-K-RAM-Karte 69,- 
RS-232-Karte 109,- 
Eprommer (A, 8, 16 K) 139,- 
128-K-RAM-Karte 279,- 
256-KB-RAM-Karte u4ß,- 


Wild-Karte 69,- 
„(knackt geschützte Programme) 
*. Händleranfragen erwünscht! 


zum 


IN 
RE 








Neue Teac’s 






TEAC FD55B 349DM 
48 tpi 2 x 40 track 500 KByte 
TEAC FD55F 399 DM 






96 tpi 2 x 80 track 1 MByte 
3,5“ Pana. JU 323 349DM 
67,5 tpi 2 x 40 track 500 KByte 


3,5“ Pana. JU 363 449DM 
135 tpi 2 x 80 track 1 MByte 




























DRUCKER 


CHINON F-502 399DM @® MX 80 + Graftrax Compatible 
48 tpi 2 x 40 track 500 KByte ® 100Zeichen/9x1 1Matrix,6Zeichensätze 
Apple AFD5S5SA 399DM ® Parallel + RS232, Einzelblatt u. Traktor 





mit Kabel und Gehäuse 


STATIONEN 











====G Postfach 200401 
= - = M J.-W.-Lindlar-Straße 8 














. 1399 BASE 
2x8“ SSDD KIT DM wi I _ ES B 5060 Bergisch Gladbach 2 
Fertiggerät 1499 DM EYE W121. (02202) 31007 : Tx. 8873518 








Auf alle Geräte 6 Monate Garantie - Änderungen, die technischen Verbesserungen dienen, vorbehalten - Lieferbedingungen auf Anfrage - Lieferung solange Vorrat reicht - 
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Tabelle der wichtigen 
Applesoft-Interpreter- 





Routinen 


von Harald Grumser 


30 





Der Applesoft-Interpreter bietet eine Fülle von 
Routinen, die z.T. über recht unkomplizierte 
Schnittstellen verfügen oder auch nur durch 
„JSR“ oder „CALL“ aufgerufen werden kön- 
nen. Die im folgenden zusammengestellte Ta- 
belle umfaßt solche Unterprogramme und Rou- 
tinen, die mit sinnvollem und vertretbarem Auf- 
wand in eigene Programme aufgenommen wer- 
den können und erhebt daher auch nicht den 
Anspruch auf Vollständigkeit, da selbstver- 
ständlich eine subjektive Auswahl getroffen 
wurde. 

Voraussetzung für das genaue Verständnis aller 
hier aufgeführten Routinen ist die Kenntnis der 
Arbeitsweise des Interpreters, die hier nicht 
vermittelt werden kann. Diese Aufstellung soll 
aber auch helfen, tiefere Einblicke zu gewinnen. 


Einige der erwähnten Routinen scheinen sehr 
beschränkte Anwendungsmöglichkeiten zu bie- 
ten, doch würde eine engere Vorauswahl den 
Programmierern nicht gerecht werden, die in 
der Lage sind, durch geeignete Hilfsmittel (In- 
tercept-Programmierung, CHRGET-Manipula- 
tion) auch umfangreichere Applikationen zu er- 
stellen. 

Obwohl die Ausführungen der einzelnen Ap- 
plesoft-Befehle (im folgenden wird Applesoft 
durch A/S abgekürzt) nicht immer für eigene 
Aufrufe geeignet sind, wurden einige in die 
Tabelle aufgenommen, um auf etwaige Beson- 
derheiten aufmerksam zu machen. 

Eine detaillierte Schilderung aller Routinen wür- 
de ein Buch füllen. Daher wurden im wesentli- 
chen nur die Parameter aufgeführt, die im Zu- 
sammenhang mit dem entsprechenden Aufruf 
von Bedeutung sind. Es sollte sich von selbst 
verstehen, daß z.B. zur Durchsuchung eines 
Programms nach einer bestimmten Zeilennum- 
mer die entsprechenden Programmzeiger ge- 
setzt sein müssen. 

Die Tabelle ist nach Sachgebieten gegliedert, 
um ein einfacheres Auffinden der benötigten 
Routinen zu erleichtern. Diese Zuordnung kann 
jedoch nicht immer eindeutig festgelegt werden 
und sollte nur als Anhaltspunkt verstanden 
werden. 


Die Label-Namen entstammen den Bezeich- 
nungen, die schon W.F. Luebbert in seinem 
Buch „What’s Where in the Apple“ benutzte 
und stützen sich darüber hinaus auf das kom- 
mentierte Assemblerlisting von G. Bredon. Eini- 
ge wenige Labels sind anderen Quellen ent- 
nommen. 


Alle Angaben beziehen sich auf den alten A/S- 
Interpreter, wie er im II+ und Ile implementiert 
wurde. Abweichungen des Interpreters des IIc 
und des neuen Ile (Enhanced Ile) werden ge- 
sondert angegeben. (Siehe auch „Die neuen 
ROMs für den Apple Ile“, Teil 3, Peeker 10/85, 
S. 34.) 


Bei der Erklärung der einzelnen Routinen sind 
im Text z.T. die symbolischen Labels aufge- 
führt, deren Adresse unter den Rubriken stets 
aufgeführt sind (mit Ausnahme von TXTPTR = 
$00B8, $00B9), um langes Suchen zu erspa- 
ren. Wegen der sehr unterschiedlichen Nutzung 
des Hauptfließkomma-Akkus (FAC) wurde die- 
ser stets aufgeführt. Die Adressenangaben be- 
ziehen sich dabei auf die in dieser Routine 
relevanten Abschnitte von FAC. Da der Text- 
pointer bei der Auswertung eines Befehls im- 
mer weitergerückt wird, ist dies nicht besonders 
vermerkt. Wenn nicht anders angegeben, en- 
den die Routinen mit RTS. 

In der Tabelle der Zero-Page-Variablen sind 
alle Adressen aufgeführt, die in dieser Aufstel- 
lung benutzt werden. Diese Tabelle bietet wei- 
tergehende Informationen über die Bedeutung 
der einzelnen Speicherstellen. 


— Unter der Rubrik Vorher sind alle Eingabepa- 
rameter zusammengestellt, die vor Aufruf ent- 
sprechend gesetzt werden müssen. Dabei be- 
deutet 

A = Akkumulator, 


X = X-Register, 
Y = Y-Register, 
S = Stackpointer, 
Z = Zero-Flag, 

C = Carry-Flag. 
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Ist diese Rubrik nicht angegeben, so kann der 
Aufruf durch einfaches „JSR“ erfolgen. Muß 
beim Aufruf kein Prozessorregister gesetzt wer- 
den, so eignet sich diese Routine auch für einen 
„CALL“-Befehl aus A/S. Die dezimale Adresse 
entnehme man der Tabelle der aufgeführten 
Routinen. 

— Die Rubrik Aufruf deutet auf eine Besonder- 
heit bei der Benutzung hin, wie z.B. ein erfor- 
derlicher vorangehender „JSR CHRGET“-Be- 
fehl. 

— Unter Nachher werden die Ausgabeparameter 
aufgeführt, die als Resultat erwünscht sind. Än- 
derungen anderer Variablen werden hier nicht 
berücksichtigt. Bei einigen Routinen ist wichtig 
zu wissen, welche Register erhalten bleiben. In 
diesem Fall wird z.B. der unveränderte Inhalt 
des Akkus durch „A =" gekennzeichnet. 


Wird im Text auf eine andere aufgeführte Routi- 
ne verwiesen, so ist dieser ein „? “ vorange- 
stellt. Referenzen auf A/S-Befehle sind durch 
Anführungszeichen gekennzeichnet. 
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1. Programmsteuerung 


1.1. Applesoft-Befehle 
1.1.1. Einfache Befehle 


RUN ($D566) — führt das A/S-Programm im 
Speicher aus (entspricht nicht dem „RUN“- 
Befehl, da kein konditioniertes RUN mit Zeilen- 
angabe möglich ist). 


STOP ($D86E) - führt „STOP“ aus. Dabei wer- 
den TXTPTR und CURLIN für „CONT“ gerettet. 
Danach erfolgt unabhängig von „ONERR“ eine 
„BREAK“-Meldung und ein Warmstart ( T RE- 
START). 

Vorher: C=1;Z=1. 

Nachher: OLDTXT ($0079, $007A) = TXTPTR; 
OLDLIN ($0077, $0078) = CURLIN ($0075, 
$0076). 


END ($D870) — beendet das Programm und 
springt nach TRESTART. Dies entspricht 
1 STOP, es wird jedoch keine Meldung ausge- 
geben. 

Vorher: Z=1. 

Nachher: siehe T STOP. 


CONT ($D896) — versucht das unterbrochene 
Programm fortzuführen. Ist dies nicht möglich 
(z.B. nach Änderung des Programms oder 
„CLEAR“), erfolgt ein Sprung nach T ERROR. 
Vorher: OLDTXT ($0079, $007A) = Zeiger auf 
nächsten A/S-Befehl 1; OLDLIN ($0077, 
$0078) = Zeilennummer des nächsten Befehls. 
Aufruf: JISR } CONT, JMP 7 NEWSTT. 
Nachher: ERRNUM ($00DE) = $D2, falls kein 
„CONT“ möglich. 


TRACE ($F26D) - setzt das Trace-Flag. 
Nachher: TRCFLG ($00F2) >= $80. 


NOTRACE ($F26F) - löscht das Trace-Flag. 
Nachher: TRCFLG ($00F2) < $80. 


NORMAL ($F273) — setzt den Normal-Ausga- 
bemodus. 

Nachher: INVFLG ($0032) = $FF; ORMASK 
($00F3) = $00. 


INVERSE ($F277) - setzt den Invers-Ausgabe- 
modus. 

Nachher: INVFLG ($0032) = $3F; ORMASK 
($00F3) = $00. 


FLASH ($F280) — setzt den Flash-Ausgabe- 
modus. 

Nachher: INVFLG ($0032) = $7F; ORMASK 
($00OF3) = $40. 


RESTORE ($D849) - setzt den DATA-Zeiger 
auf den Programmanfang - 1. 

Nachher: DATPTR ($007D, $007E) = TXTTAB 
($0067, $0068) - 1. 


LOAD ($D8C9) - lädt ein A/S-Programm via 
READ ($FEFD) von Kassette. Dabei wird auch 
das LOCK-Byte eingelesen. Diese Routine ent- 
fällt beim Ilc. 


SAVE ($D8B0) - sichert das A/S-Programm via 
WRITE ($FECD) auf Kassette. Dabei wird zu- 
nächst die Programmlänge, dann das LOCK- 


4 Applesoft 94 


Byte und zuletzt das Programm gespeichert. 
Diese Routine entfällt beim Ilc. 

Vorher: LOCK ($00D6) = $80, um Programm 
bei jeder Eingabe zu starten. 


STORE ($F39F) - führt „STORE“ aus mittels 
Monitor-Routine WRITE ($FECD). Diese Routi- 
ne entfällt beim Ilc. 


RECALL ($F3BC) - führt „RECALL“ aus mit- 
tels Monitor-Routine READ ($FEFD). Diese 
Routine entfällt beim Ilc. 


SHLOAD ($F775) - liest eine Shape-Tabelle 
mittels der Monitor-Routine READ ($FEFD) von 
Kasette unterhalb von HIMEM ein und setzt die 
entsprechenden Zeiger. Diese Routine entfällt 
beim Ilc. 

Nachher: MEMSIZE ($0073, $0074) = FRETOP 
($006F, $0070) = SHPTAB ($00E8, $00E9) = 
HIMEM - Tabellenlänge. 


1.1.2. Befehle mit Parametern 


RUNLINE ($D91B) - führt ein konditioniertes 
„RUN“ aus (entspricht „CLEAR : GOTO n“). 
Nach dem Aufruf von TCLEARC erfolgt ein 
Sprung zu T GOLINE. 

Vorher: siehe f GOLINE. 


LET ($DA46) — weist der folgenden Variablen 
den nach dem „="-Zeichen angegebenen 
Ausdruck zu. Stimmen die beiden Typen nicht 
überein, erfolgt T TMMERR. Diese Routine ruft 
T PTRGET und ? FRMEVL auf und benutzt bei 
String-Variablen einige String-Routinen. 
Vorher: TXTPTR = Zeiger auf ersten Buchsta- 
ben des Variablennamens. 

Nachher: FORPNT ($0085, $0086) = Zeiger auf 
vorgefundene oder neu angelegte Variable; an- 
sonsten siehe T FRMEVL. 


LIST ($D6A5) - führt „LIST“ aus und springt 
nach T NEWSTT (siehe ? MAINLIST). 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
der Bereichsangabe - 1 (z.B. „100, 200“) mit 
Bit 7 = O und $00 oder „:“ als Endmarker. 


Aufruf: Register durch JSR T CHRGET setzen. 


DEL ($F331) - löscht den angegebenen Zeilen- 
bereich und alle Variablen (entspricht „DEL“). 
Vorher: TXTPTR = Zeiger auf 1. Zeichen vor 
Zeilenbereichsangabe. 

Aufruf: Register durch JSR T CHRGET setzen. 


GOTO ($D93E) — setzt die Programmzeiger auf 
die angegebene Zeile, indem das Programm 
nach dieser durchsucht wird. Die Suche erfolgt 
abhängig von der aktuellen Zeile nach oben bis 
zum Programmende oder vom Programman- 
fang aus. Wird die Zeile nicht gefunden, so 
verzweigt die Routine zu T UNDERR. 

Vorher: TXTPTR = Zeiger auf Zeilenangabe - 1. 
Aufruf: Register durch JSR T CHRGET setzen. 
Die Ausführung der neuen Zeile erfolgt erst 
nach Aufruf von T NEWSTT. 

Nachher: TXTPTR = Zeiger auf neue Zeile; 
LINNUM ($0050, $0051) = neue Zeilen- 
nummer. 


GOSUB ($D921) - führt „GOSUB“ aus. Diese 
Routine überprüft zunächst mittels T CHKSTK, 
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ob der Stack noch 6 Bytes aufnehmen kann. 
Nach dem Ablegen des TXTPTR, der aktuellen 


Zeilennummer und dem „GOSUB“-Token 
($B0) geht sie dann in T GOLINE über. 
Vorher: siehe T GOLINE. 


ONGOTO ($D9YEC) - führt „ON I GOTO (GO- 
SUB)“ aus. Dabei wird zunächst der Index | 
mittels T GETBYT eingelesen und der TXTPTR 
auf die I. Zeilenzahl gesetzt, um dann mit dem 
„GOTO“- oder „GOSUB“-Token im Akku nach 
T GOCMD zu springen. 

Vorher: TXTPTR = Zeiger auf Index. 


POP ($D96B) — holt einen „GOSUB“-Eintrag 
vom Stack. Dabei werden alle in diesem Unter- 
programm geöffneten „FOR-NEXT“-Schleifen 
abgeschlossen. Wurde kein Unterprogramm 
aufgerufen (kein „GOSUB“-Token auf dem 
Stack), verzweigt das Programm zu 
T RWGERR. Enthält das Y-Register den Wert 
$42, wird „POP“ durchgeführt und die Pro- 
grammzeiger belassen. 

Im anderen Fall werden die Programmzeiger 
vom Stack geholt und eingesetzt. Die Routine 
geht dann in T DATA über, um die Zeiger auf 
das Ende des (ursprünglichen) Befehls zu 
setzen. 

Vorher: Y = $42 führt „POP“ aus, ansonsten 
„RETURN“. 

Aufruf: Die Ausführung des nächsten A/S-Be- 
fehls fährt erst nach Aufruf von ? NEWSTT fort. 
Nachher: TXTPTR = Zeiger auf neuen Befehl 
(nur bei „RETURN“); CURLIN ($0075, $0076) 
= neue Zeilenummer (nur bei „RETURN“). 


IF ($D9C9) — wertet den nachfolgenden Aus- 
druck aus und prüft, ob „THEN“ oder „GOTO“ 
folgt, um ggf. nach T SYNERR zu springen. Ist 
der Ausdruck falsch, wird T REM ausgeführt, 
um den Rest der Zeile zu überspringen. Ist er 
richtig, wird bei nachfolgender Zahl zu T GOTO 
gesprungen, ansonsten zu T GOCMD. 

Vorher: TXTPTR = Zeiger auf logischen Aus- 
druck. 


HIMEM1 ($F28C) — setzt den übergebenen 
Wert als neuen HIMEM-Wert ein. Falls dieser 
kleiner als das Ende der Variablen ist, erfolgt 
1 MEMERR. Eine Überprüfung für die Ober- 
grenze findet nicht statt. 

Vorher: LINNUM ($0050, $0051) = einzuset- 
zender HIMEM-Wert. 

Nachher: MEMSIZE ($0073, $0074) = FRETOP 
($006F, $0070) = neuer HIMEM-Wert. 


LOMEM1 ($F2AC) — setzt den übergebenen 
Wert als neuen LOMEM-Wert ein. Falls dieser 
größer als „HIMEM“ und kleiner als der aktuelle 
LOMEM-Wert ist, erfolgt ? MEMERR. Durch ei- 
nen Sprung nach ? CLEARC werden alle Varia- 
blen gelöscht. 

Vorher: LINNUM ($0050, $0051) = einzuset- 
zender LOMEM-Wert. 

Nachher: siehe T CLEARC. 


1.2. Manipulation des Textpointers 


DATA ($D995) — setzt TXTPTR auf das Ende 
des aktuellen Befehls, d. h. auf „:“ oder $00. 
Nachher: TXTPTR = Zeiger auf Befehlsende. 


DATAN ($D9A3) - zählt die Zeichen ab 
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TXTPTR bis zum nächsten „:“ (nicht in Hoch- 
komma) oder $00. 

Vorher: TXTPTR = Zeiger auf Programmtext. 
Nachher: Y = Anzahl der Zeichen. 


REM ($D9DC) - setzt TXTPTR auf das Ende der 
aktuellen Zeile, d. h. auf $00. 
Nachher: TXTPTR = Zeiger auf Zeilenende. 


REMN ($D9A6) - zählt die Zeichen ab TXTPTR 
bis zum nächsten $00. 

Vorher: siehe T DATAN. 

Nachher: Y = Anzahl der Zeichen. 


ADDON ($D998) — setzt TXTPTR um die ange- 
gebene Anzahl von Zeichen weiter. 

Vorher: Y = Anzahl der Zeichen. 

Nachher: TXTPTR = TXTPTR + Y. 


STRTXT ($DE81) — übergeht ein Zeichen 
(i.allg. Hochkomma), führt T STRLIT aus und 
setzt den Textpointer hinter den String. 

Vorher: GC = 1; TXTPTR = Zeiger auf letztes 
Zeichen vor eigentlichem String. 

Nachher: TXTPTR = Zeiger auf erstes Zeichen 
nach String; ansonsten siehe T STRLIT. 


1.3. Auswertung 


CHRGET ($00B1) - liest das nächste Zeichen 
des Programmtextes in den Akku und über- 
springt Leerzeichen. Diese Routine wird beim 
Kaltstart in die Zero-Page kopiert. 

Vorher: TXTPTR = Zeiger auf letztes eingelese- 
nes Zeichen. 

Nachher: TXTPTR = TXTPTR + 1 (falls kein 
Leerzeichen); Z = 1, wenn End-of-Statement- 
Zeichen ($00, „:"); C = 1, wenn Ziffer ($30- 
$39); A = eingelesenes Zeichen. 


CHRGOT ($00B7) - liest das Zeichen, auf das 
TXTPTR verweist, in den Akku und überspringt 
Leerzeichen. 

Vorher: TXTPTR = Zeiger auf einzulesendes 
Zeichen. 

Nachher: siehe T CHRGET. 


FRMEVL ($DD7B) — wertet den durch den 
Textpointer bezeichneten Ausdruck (auch Ver- 
gleiche) aus, bis ein EOS (,„:“ oder $00) folgt. 
Diese Routine stellt ein Kernstück des Interpre- 
ters dar und benutzt eine große Anzahl von 
Unterprogrammen. Der Ausdruck wird im 
Hauptfließkomma-Akku abgelegt, entweder als 
Deskriptor (Länge und Adresse des Strings) 
oder als Fließkommazahl (1 Byte Exponent, 4 
Bytes Mantisse, ungepackte Form). 

Vorher: TXTPTR = Zeiger auf 1. Zeichen des 
Ausdrucks. 

Nachher: FAC ($009D-$00A1) = Fließkomma- 
zahl, bei num. Ausdruck; FACSIGN ($00A2) = 
Vorzeichen, bei num. Ausdruck; FAC ($009D- 
$009F) = Deskriptor, bei String; VALTYP 
($0011) = Flag für Typ ($00 = Zahl, $FF = 
String). 


FRMNUM ($DD67) — wertet den durch den 
Textpointer bezeichneten Ausdruck via 
\ FRMEVL aus. Liegt kein numerischer Aus- 
druck vor, erfolgt die Meldung „TYP MIS- 
MATCH“. 

Vorher: siehe f FRMEVL. 

Nachher: siehe } FRMEVL. 


GETVAL ($DE60) — wertet einen durch den 
Textpointer bezeichneten Ausdruck aus. Diese 
Routine ist das wichtigste Werkzeug von 
\ FRMEVL. Zu Beginn der Routine wird festge- 
legt, ob es sich um einen der folgenden Typen 
handelt: Variablenname, Zahl als ASCII-Folge 
(Bit 7 = 0), String in Hochkomma, Minuszei- 
chen, NOT-Befehl, FN-Befehl, Funktionsaus- 
druck. Ansonsten wird eine geöffnete Klammer 
erwartet und ? FRMEVL rekursiv aufgerufen. 
Hier ist das Zeichen zur Erkennung des Aus- 
drucksendes vom Typ abhängig. 

Vorher: TXTPTR = Zeiger auf letztes Zeichen 
vor Ausdruck. 

Nachher: siehe T FRMEVL. 


PARCHK ($DEB2) - ruft  CHKOPN auf und 
springt nach T FRMEVL. 

Vorher: siehe T SYNCHR. 

Nachher: siehe T FRMEVL. 


GETBYT ($E6F8) — wertet den folgenden Aus- 
druck als Integer zwischen O und 255 aus. 
Stimmen Typ oder Wertebereich nicht überein, 
erfolgt eine Fehlermeldung. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
des Ausdrucks. 

Nachher: X = FAC+4 ($00A1) = ausgewerteter 
Ausdruck; A = erstes Zeichen nach Ausdruck. 


GTBYTC ($E6F5) - ruft T CHRGET auf und 
geht in T GETBYT über. 

Vorher: TXTPTR = Zeiger auf auszuwertenden 
Ausdruck - 1. 

Nachher: siehe T GETBYT. 


GETNUM ($E746) — wertet die zwei folgenden 
Ausdrücke als Zahlen aus, die durchein Komma 
getrennt sein müssen. Die erste Zahl darf im 
Bereich 0-65535 liegen, die zweite zwischen O 
und 255. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
des ersten Ausdrucks. 

Nachher: LINNUM ($0050, $0051) = erste 
Zahl; X = FAC+4 ($00A1) = zweite Zahl. 


LINGET ($DA0C) — wertet eine Zahl (0-64000) 
als ASCII-Folge (Bit 7 = D) aus. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen - 
1. 

Aufruf: Register durch JSR T CHRGET setzen. 
Nachher: LINNUM ($0050, $0051) = ausge- 
wertete Zahl. 


PTRGET ($DFE3) — sucht die angegebene Va- 
riable in der Variablenliste. Durch SUBFLAG 
kann bestimmt werden, ob auch Integer-Varia- 
blen gesucht werden sollen. Falls nicht, erfolgt 
bei Integer-Variablen die Meldung „SYNTAX“. 
Existiert die Variable oder das Array-Element 
nicht, wird neu angelegt (bei Arrays nur bei 
kleinerem Index als 11). 


Vorher: TXTPTR = Zeiger auf 1. Buchstaben 
des Namens; SUBFLAG ($0014) = Flag für 
Integer (Bit 7 = 1: keine Integers erlaubt). 
Nachher: VARPNT ($0083, $0084) = Zeiger auf 
Variableninhalt. 


Fortsetzung Seite 50 


Peeker 12/85 





Pascal-Kompaktkurs 


UCSD- und Turbo-Pascal 


Teil 1: Grundlagen 
für Applesoft-Programmierer 


von Ulrich Stiehl 





Peeker 12/85 33 





1. Allgemeines 
1. Pascal und BASIC 


Kennen Sie einerseits Applesoft-BASIC und 
haben Sie andererseits von Pascal keinen 
„Schimmer einer Ahnung“? Dann ist der erste 
Teil unseres Kompaktkurses für Sie bestens 
geeignet. Als BASIC-Programmierer können 
Sie hier überraschend schnell in Pascal einstei- 
gen, denn wir haben uns im ersten Teil auf 
diejenigen Befehle beschränkt, die Ihnen in 
ähnlicher Form von Applesoft her bereits be- 
kannt sind. Dies sind immerhin weit mehr als die 
Hälfte aller Pascal-Befehle. Jedem Pascal-Be- 
fehlsbeispiel wird das entsprechende Ap- 
plesoft-Pendant vorangestellt, so daß Sie Zeile 
für Zeile Applesoft mit Pascal vergleichen und 
auf diesem Wege die Besonderheiten von Pas- 
cal erlernen können. 

Es dürfte nicht wenige Pascal-Puristen geben, 
die eine Kontrastierung von Pascal mit BASIC 
für einen didaktisch falschen Ansatz halten, wie 
überhaupt Pascal-Anhänger gelegentlich etwas 
doktrinäre Ansichten vertreten. Wir sind hier 
ganz anderer Meinung. Wenn jemand bereits 
BASIC und womöglich auch Assembler gelernt 
hat, dann wäre es völlig abwegig, nicht auf 
diesem Wissen aufbauen zu wollen. Außerdem 
ist Pascal keine „heilige“ Sprache. Sie hat 
zweifelsohne ihre Vorzüge, aber auch ebenso 
ihre Mängel. 


Listing 

Das abgedruckte Listing KURS1 ist die UCSD- 
Version (lauffähig unter Apple-Pascal 1.1 und 
1.2), die auf der Peeker-Sammeldisk #10 unter 
dem Dateinamen UCSD.TEXT abgelegt ist. Au- 
ßBerdem befindet sich auf derselben Sammel- 
disk die Turbo-Version namens TURB.PAS 
(lauffähig unter CP/M-Turbo-Pascal 3.0). Bei 
der Turbo-Version wurden aus Platzgründen die 
Applesoft-Kommentare gestrichen, damit direkt 
im Arbeitsspeicher compiliert werden kann. Au- 
Berdem waren einige Anpassungen erforder- 
lich. 


Definitionen 

Standard-Pascal = von Niklaus Wirth, Schweiz, 
in den Jahren 1968-1973 entwickelte und nach 
Blaise Pascal benannte Programmiersprache, 
die im zweiten Teil vom „User Manual and 
Report“ (Springer-Verlag) definiert wird. 
UCSD-Pascal = an den Apple Il(+/e/c) unter 
6502 stark angepaßtes, spezielles UCSD-Pas- 
cal (UCSD = University of California in San 
Diego) mit eigenem Diskettenbetriebssystem; 
neueste Version 1.2; Hersteller: Fa. Apple, 
USA. 

Turbo-Pascal = an den Apple Il(+/e/c) unter 
Z80 schwach angepaßtes, spezielles Turbo- 
Pascal mit normalem Apple-CP/M-Betriebssy- 
stem (z.B. CP/M 2.26); neueste Version 3.0; 
Hersteller: Fa. Borland, USA. 


2. Editor und Compiler 


BASIC ist normalerweise als Interpretersprache 
implementiert, wenngleich beispielsweise zu 
Applesoft verschiedene Compiler erhältlich 
sind. Pascal ist demgegenüber normalerweise 
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als Compilersprache implementiert; dies gilt na- 
mentlich für UCSD- und Turbo-Pascal. Bei einer 
Compilersprache muß zunächst der Quelltext 
(Source-Text) mit einem Editor erstellt und 
dann auf Diskette gespeichert werden .(in 
UCSD-Pascal mit dem Suffix „.TEXT", in Tur- 
bo-Pascal mit dem Suffix „.PAS“, also z.B. 
DEMO.TEXT oder DEMO.PAS). Der Editor ist 
im Prinzip wie ein gewöhnliches Textverarbei- 
tungsprogramm aufgebaut, doch darf nicht völ- 
lig „endlos“, d.h. ohne jegliche Returns, ge- 
schrieben werden. Praktisch heißt dies, daß ei- 
ne Quelltextzeile normalerweise nicht mehr als 
78 Zeichen umfassen sollte. Ein Programm, d.h. 
die Summe der Quelltextzeilen, könnte folgen- 
dermaßen aussehen: 


PROGRAM DEMO; 
BEGIN 

WRITELN (’Demo’) 
END. 


Der fertige Quelltext dieses Mini-Programms 
wird auf der Diskette gespeichert und läßt sich 
dann mit Hilfe eines Compilers zu einem lauffä- 
higen Objektcode compilieren, der auf der Dis- 
kette in UCSD-Pascal mit dem Suffix „.CODE“ 
und in Turbo-Pascal mit dem Suffix „.COM“ 
abgelegt wird (also z.B. DEMO.CODE oder DE- 
MO.COM). Der UCSD-Compiler erzeugt jedoch 
nur einen pseudo-compilierten Objektcode (= 
P-Code), der insofern unselbständig ist, als er 
von dem sog. P-Code-Interpreter abgearbeitet 
werden muß, während der Turbo-Compiler ei- 
nen reinen Z80-Objektcode erzeugt, der unab- 
hängig von Turbo-Pascal wie eine normale CP/ 


M-COM-Datei gestartet werden kann. Damit 


kann man auch Turbo-Pascal-Programme an 
Personen weitergeben, die über Turbo-Pascal 
gar nicht verfügen. 

(Editor und Compiler sowie das UCSD- bzw. 
CP/M-Betriebssystem können aus Platzgrün- 
den hier nicht behandelt werden.) 


3. UCSD- und Turbo-Pascal 


Für die Programmentwicklung unter UCSD- 
Pascal ergibt sich folgender Zyklus: 

1. Quelltext im Editor schreiben oder ändern. 

2. Quelltext auf Diskette speichern. 

3. P-Code mit Compiler auf Diskette erzeugen. 
Nach Fehlermeldungen zurück zu 1. 

4. P-Code aus dem UCSD-Betriebssystem her- 
aus über den Run-Befehl von der Diskette 
starten. | 

Unter Turbo-Pascal, das im wesentlichen aus 


der sehr kompakten Datei TURBO.COM be- 


steht, die Editor und Compiler vereint, ergeben 
sich demgegenüber folgende Varianten: 

1. Quelltext im Editor schreiben oder ändern. 

2. Quelltext auf Diskette speichern. 

3. Objektcode wahlweise auf Diskette oder di- 
rekt im Speicher erzeugen (letzteres nur bei 
kleineren Quelltexten). Nach Fehlermeldungen 
zurück zu 1. 

4. Objektcode wahlweise aus dem CP/M-Be- 


triebssystem heraus von der Diskette oder im 


Speicher aus dem Turbo-Menü heraus über 
den Run-Befehl starten (letzteres nur bei klei- 
neren Objektcodes). i 


„Kleinerer“ Quelltext und Objektcode besagt, 
daß man unter Turbo-Pascal je nach CP/M- 
Version bis zu ca. 30K für Text und Code zur 
Verfügung hat, was für Anfängerprogramme im- 
mer ausreicht. Da man somit unter Turbo-Pas- 
cal wie ein „Wirbelwind“ (lat. „turbo“) zwischen 
Edit, Compile und Run ohne jeglichen Disket- 
tenzugriff wechseln kann, eignet sich Turbo- 
Pascal besser für Anfänger, die nach der „Ver- 
such-und-Irrtum“-Methode lernen, während 
UCSD-Pascal mehr für systematische „Papier- 
und-Bleistift“-Programmierer gedacht ist, de- 
nen selten ein Tipp- oder Denkfehler unterläuft. 
Nehmen wir als Beispiel unseren KURS1: Die 
reine Compilierungszeit beträgt hier unter 
UCSD-Pascal 130s; hinzu kommen bis zu 10s 
für jeden Editor-, Compiler- oder Run-Modus- 
Wechsel, so daß ein Edit-Compile-Run-Zyklus 
mehr als 150s einnimmt. Demgegenüber dauert 
unter Turbo-Pascal die reine Compilierungszeit 
ca. 10s, und der Edit-Compile-Run-Wechsel ist 
praktisch „blitzartig“. Hinzu kommt ferner, daß 


‚erstens der Turbo-Objektcode schneller als der 


UCSD-P-Code abgearbeitet wird und daß zwei- 
tens Turbo-Pascal problemlos mit 1 Disketten- 
laufwerk betrieben werden kann, während man 
bei UCSD-Pascal wegen des riesigen Betriebs- 
systems als 1-Drive-Besitzer am besten gleich 
gar nicht anfängt. Aus alledem könnte man 
schließen, daß Turbo-Pascal erheblich besser 
als UCSD-Pascal sei. Dem ist jedoch nicht so. 


- Beide Pascal-Versionen haben ihre Vor- und 


Nachteile. UCSD-Pascal ist besser an den Ap- 
ple angepaßt (mit implementierter Turtle-Grafik, 
mit einem gesonderten 6502-Assembler usw.), 
während zusätzliche Turbo-Pascal-Eigenschaf- 
ten nur bei der IBM-PC-Version vorhanden 
sind. 


Apple-UCSD-Pascal 1.2 erhält man über Apple- 
Händler mit 4 Disketten, 2 Handbüchern und 2 
Ergänzungsbroschüren zum Preis von ca. DM 
900,-. Zum Lieferumfang gehören ein komplet- 
tes Diskettenbetriebssystem mit Filer, Formatter 
usw. sowie zahlreiche Hilfsprogramme wie As- 
sembler, Linker, Library-Verwaltungsprogram- 
me usw. Apple-UCSD-Pascal ist auf jedem Ap- 
ple lauffähig (II+/e/c), wobei jedoch eine 80- 
Zeichenkarte zweckmäßig und zwei Laufwerke 
praktisch unumgänglich sind. 


Turbo-Pascal 3.0 erhält man über die Firma 
Heimsoeth mit 2 Disketten und 1 Handbuch 
zum Preis von ca. DM 230,-. Eine Z80-Karte 
und das CP/M-Betriebssystem müssen geson- 
dert für zusammen ca. DM 1000,- erworben 
werden (Die Turbo-Systemdiskette bootet 
nicht). Eine 80-Zeichenkarte ist erforderlich, ein 
zweites Laufwerk hingegen entbehrlich. Für die 
optimale Anpassung an den Apple muß man 
selbst sorgen. Dies beginnt bereits bei der Kon- 
figurierung der 80-Z/Z-Bildschirmsteuerung 
und endet bei der Hires-Grafik. 


— Turbo-Pascal eignet sich besser für Anfänger 
und solche Programmierer, die kleine Program- 
me ohne „Libraries“ erstellen wollen. UCSD- 
Pascal eignet sich besser für Fortgeschrittene 
und solche Programmierer, die von dem nur in 
UCSD-Pascal hochentwickelten „Bibliotheks- 
konzept“ Gebrauch machen wollen. 
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— Die Verarbeitungsgeschwindigkeit (mit Aus- 
nahme des Diskettenzugriffs) ist bei Turbo-Pas- 
cal größer als bei UCSD-Pascal. 

— Turbo-Pascal eignet sich besser für an- 
spruchsvolle Fliießkomma-Mathematik, während 
UCSD-Pascal bei Grafik und sonstigen apple- 
spezifischen Anwendungen vorzuziehen ist. 


Dies sind einige der Vor- und Nachteile, die Sie 
bei Ihrer Kaufentscheidung berücksichtigen 
können. 


4. Ist Pascal standardisiert? 


Würde man den Schwierigkeitsgrad einer Pro- 
grammiersprache von der Anzahl der Befehle 
abhängig machen, so wäre (6502-)Assembler 
sehr leicht und Pascal sehr schwer. Die Anzahl 
der Befehle ist indes nur ein quantitatives Pro- 
blem; wichtiger ist die Systematik und Einheit- 
lichkeit der Befehle. Obwohl Pascal als eine 
standardisierte Sprache gerühmt wird, haben 
sich leider bei den einzelnen Implementierun- 
gen zahlreiche „Wunderlichkeiten“ eingeschli- 
chen, die es erforderlich machen, daß man sich 
bei zu vielen Befehlen zu viele Spezialfälle mer- 
ken muß. Greifen wir zur Verdeutlichung die 
Befehle WRITE/WRITELN und READ/READLN 
heraus, die in etwa den Applesoft-Befehlen 
PRINT (ohne und mit folgendem Semikolon) 
und GET/INPUT entsprechen: 


WRITE (A) etwa PRINT A$; 
WRITELN (A) etwa PRINT A$ 
READ (A) etwa GET A$ 
READLN (A) etwa INPUT A$ 


Man beachte, daß im Gegensatz zu Applesoft in 
Pascal die aus- oder einzugebende Variable A 
eingeklammert werden muß und daß der „$"- 
Zusatz entfällt (A sei hier eine sog. Char-Varia- 
ble, d.h. eine Einzelzeichen-Variable). 

Was passiert nun, wenn man die Klammer leer 
läßt, also 

WRITE () bzw. 

WRITELN () 

eingibt. In UCSD-Pascal ist beides zulässig, in 
Turbo-Pascal hingegen beides verboten. 

Wie steht es nun mit einem nackten 

WRITE bzw. 

WRITELN 

ohne Klammern (ähnlich wie ein nacktes PRINT 
in Applesoft)? Hier stellen wir fest, daß in Turbo- 
Pascal WRITE und WRITELN erlaubt sind, in 


UCSD-Pascal dagegen nur WRITELN. Es gilt 


also im einzelnen: 

WRITE (): UCSD ja, Turbo nein 

WRITELN (): UCSD ja, Turbo nein 

WRITE: UCSD nein, Turbo ja 

WRITELN: UCSD ja, Turbo ja 

Setzen wir unsere Experimente mit READ/ 
READLN fort. In Applesoft wären GET bzw IN- 
PUT ohne nachfolgende Variable nicht denkbar. 
Schlagen wir hingegen irgendein Pascal-Buch 
auf, z.B. „Rollke: Grundkurs, Band 2, S. 25", so 
finden wir plötzlich ohne nähere Erläuterung ein 
nacktes READLN. Sie werden sich mit Recht 
fragen, was eigentlich mit dem über die Tastatur 
eingegebenen Wert passiert, wenn keine Wert- 
zuweisung erfolgt. Außerdem werden Sie sich 
überlegen, ob neben READLN auch READ 
funktioniert. Durch Experimente werden Sie er- 
mitteln: 
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READ: UCSD nein, Turbo ja 

READLN: UCSD ja, Turbo ja 

Ferner gibt es noch die Möglichkeit, bei READ/ 
READLN die Tastatur direkt ohne Bildschirm- 
echo abzufragen, und zwar mit dem Zusatz 
KEYBOARD in UCSD-Pascal bzw. KBD in Tur- 
bo-Pascal. Diese Befehle entsprechend etwa 
dem Applesoft-Peek der Speicherstelle -16384 
= $C000. Hier werden Sie feststellen, daß in 
UCSD- bzw. Turbo-Pascal 

READ (KEYBOARD) bzw. 

READ (KBD) 


beide keinerlei Wirkung zeigen, weil die ent- 
sprechende Stelle im Objektcode quasi über- 
sprungen wird, während zumindest 

READ 

allein onne KBD in Turbo-Pascal möglich ist. 
Umgekehrt zeigen in UCSD- bzw. Turbo-Pascal 
READLN (KEYBOARD) bzw. 

READLN (KBD) | 

beide eine Wirkung. 

Gehen wir nun noch einen Schritt weiter und 
versuchen wir, über die Tastatur der Char-Varia- 
blen A durch Tippen der Return-Taste jeweils 
den entsprechenden ASCIlI-Code 13 zuzuwei- 
sen. Dann stellen wir fest, daß in UCSD-Pascal 
READ (A) und 

READ (KEYBOARD, A) 

beide eine Leertaste (ASCII-Code 32) statt Re- 
turn zuweisen. 

Anders bei Turbo-Pascal. Hier ergibt 

READ (A) 

Ctrl-Z (ASCII-Code 26), während 

READ (KBD, A) 

endlich das ersehnte Return zuweist. 

Um die Verwirrung komplett zu machen, sei an 
dieser Stelle bereits erwähnt, daß nur wenige 
der zahlreichen Pascal-Datentypen über 
READLN/WRITELN ein- bzw. ausgegeben wer- 
den können. Nehmen wir als Beispiel die Wahr- 
heitswerte. In Applesoft ist der Befehl 

PRINT 1=1 

zulässig und ergibt den Wert 1 (= wahr), wäh- 
rend 

PRINT 1=2 

den Wert O (= falsch) ausgibt. In UCSD-Pascal 
können Sie im Gegensatz zu Turbo-Pascal nicht 
einfach 

WRITELN (1=1) 

verwenden. Vielmehr müssen Sie zu umständli- 
chen Formulierungen greifen, z.B. 

IF 1=1 THEN WRITELN (1) 

oder 

IF 1=1 THEN WRITELN ('wahr’) 

Wenn Sie sich jedoch einige Zeit mit UCSD- 
Pascal befaßt haben, werden Sie den ORD- 
„Trick“ kennenlernen. 

WRITELN (ORD (1=1)) 

gibt den Wert 1 aus, während 

WRITELN (ORD (1=2)) 

den Wert O anzeigt. Was passiert jedoch, wenn 
Sie beispielsweise den Befehl 

WRITELN (ORD (NOT (1=1))) 

verwenden. Während Turbo-Pascal hier wieder 
O ausgibt, erhalten Sie in UCSD-Pascal plötzlich 
-2. Folglich müssen Sie in UCSD-Pascal lernen, 
unter welchen Umständen Sie einen vernünfti- 
gen Wert erwarten dürfen. 

Diese Beispiele zeigen auf das deutlichste, daß 
man sich in Pascal mit vielen „wundersamen 
Dingen“ vertraut machen muß und daß es mit 
der vielgerühmten Standardisierung nicht zum 
besten steht. 
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ll. Das definitorische 
Grundgerüst 


1. Namen 


Namen sind (1) reservierte Wörter sowie (2a) 
vordefinierte und (2b) benutzerdefinierte Be- 
zeichner. Wie die meisten Programmierspra- 
chen kennt auch Pascal Befehlswörter, z.B. 
FOR, AND, OR usw., die jedoch nur aus Buch- 
staben (wahlweise Groß- oder Kleinbuchsta- 
ben) bestehen. Im einzelnen unterscheidet man 
die reservierten Wörter (z.B. AND, OR, END 
usw.) von den vordefinierten Bezeichnern = 
Standardbezeichnern (z.B. ABS, CHR, GOTO- 
XY usw.), da letztere von der jeweiligen Pascal- 
Implementierung abhängen. Wie in Applesoft 
kann man in Pascal den Konstanten und Varia- 
blen eigene Namen geben, die benutzerdefi- 
nierte Bezeichner heißen, z.B. im Falle von 
konstanten Zahlen: 

A=10 

Al = 10 

ZAHL = 10 usw. 

Benutzerdefinierte Bezeichner müssen mit ei- 
nem Groß- oder Kleinbuchstaben anfangen, 
dürfen danach jedoch auch Ziffern aufweisen. In 
UCSD-Pascal sind die ersten 8 Zeichen eines 
Bezeichners signifikant, in Turbo-Pascal theore- 
tisch sogar bis zu 127 Zeichen. Sonderzeichen 
($, %, !, # usw.) sind nicht zulässig (Ausnah- 
me: _ = Unterstreichungsstrich). Benutzerdefi- 
nierte Bezeichner können reservierten Wörtern 
und Standardbezeichnern ähneln (z.B. FOR_E- 
VER, BEGIN_NER usw.), dürfen ihnen jedoch 
(normalerweise) nicht gleichen. Der Unterstrei- 
chungsstrich hat übrigens in UCSD-Pascal ei- 
nen „Nullwert“, d.h. FOR_EVER und FOREVER 
sind gleich. Schließlich beachte man, daß Groß- 
und Kleinbuchstaben in demselben Programm 
beliebig gemischt werden könnten, d.h. man 
könnte z.B. ZAHL als Konstante definieren und 
später im Programm als zahl, zAhlL usw. auf- 
rufen. 

Während es in Applesoft im Prinzip nur Kon- 
stanten- und Variablen-Bezeichner gibt, kennt 
man in Pascal Konstanten-, Variablen-, Proze- 
dur-, Funktions-, Programm- (und in Turbo-Pas- 
cal zusätzlich) Label-Bezeichner. (In UCSD- 
Pascal sind als Labels nur Ziffern zulässig, in 
Turbo-Pascal wahlweise Ziffern oder Namen.) 


2. Begrenzer 


In Pascal gibt es Sonderzeichen, die entweder 
bestimmte Funktionen erfüllen (z.B. die mathe- 
matischen Operatoren +, -, *, /) oder aus- 
schließlich der Begrenzung von Namen dienen 
(z.B. Leertaste und Return). Operatoren sind 
automatisch gleichzeitig Begrenzer: Einerseits 
läßt der Editor eine frei formatierte Eingabe des 
Quelltextes zu. Andererseits reagiert der Com- 
piler etwas „unwirsch“ auf fehlende Begrenzer. 
Betrachten wir hierzu folgende Beispiele (die 
eingeklammerten Nummern gehören nicht zum 
Programm): | 

{PRINT: PRINT} 

(1) WRITELN; WRITELN 

(2) WRITELN; 

WRITELN 

(3) WRITELN;WRITELN 

(4) WRI 

TELN; WRI TELN 
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Befehle werden in Pascal durch „;“ und in 
Applesoft durch „:“ getrennt. Nach dem „;" 
kann man zusätzlich eine Leertaste (1) oder ein 
Return (2) einfügen oder auf beides verzichten 
(3). Man darf jedoch nicht mitten in ein Befehls- 
wort ein Return oder eine Leertaste einfügen 


(4). 


{PRINT A x A} 

-(1)WRITELN (AA) 

(2) WRITELN (AxA) 

(3) WRITELN(AxA) 

Wie ersichtlich, werden Ausdrücke, die der 
WRITELN-Befehl ausgeben soll, im Gegensatz 
zu Applesoft in runde Klammern eingeschlos- 
sen. „*“, „(“ und „)“ dienen gleichzeitig als 
Begrenzer, so daß Leertasten entbehrlich sind 
(2, 3), jedoch zulässig wären (1). 


{PRINT 10 DIV 2} 

(1) WRITELN (10 DIV 2) 
(2) WRITELN (10 

DIV 

2 


) 

(3) WRITELN (10DIV2) 

(4) WRITELN ((10)DIV(2)) 

Das dritte Beispiel zeigt das Ergebnis einer 
Integer-Division an (analog zu manchen BA- 
SIC-Versionen). Die Version (3) ist unzulässig, 
weil „DIV“ als Befehlswort entweder links und 
rechts durch eine Leertaste (1) bzw. ein Return 
(2) oder durch einen sonstigen Begrenzer ab- 
gesetzt werden muß, z.B. durch eine überflüssi- 
ge Klammer (4). 


Man kann bei Begrenzern im einzelnen unter- 
scheiden: 

Einzeichen-Begrenzer: + -*x/=<>:.,; 
Doppelzeichen-Begrenzer: := .. <= >= <> 
Paarzeichen-Begrenzer: {-} (-) [-] '-' 
Standard-Begrenzer: (Leertaste, Return) 

(In Turbo-Pascal gibt es außerdem die Begren- 
zer # und $ bei hexadezimalen Zahlen.) 


Man merke sich: 

a) Ein Name (Befehlswort, Bezeichner) sowie 
ein Doppelzeichen-Begrenzer darf niemals in 
sich durch einen Standard-Begrenzer unterbro- 
chen werden, z.B.: 

A := 1 ist richtig 

A: = 1 ist falsch 

b) Ein Name (s.o. DIV usw.) muß stets links und 
rechts begrenzt werden. 

Einige Begrenzer wollen wir bereits an dieser 
Stelle andeutungsweise erklären: 

(-) 

- steht nach WRITELN und diversen Funktionen, 
z.B. SIN (X). 


{3 

wird bei Kommentaren und Compiler-Optionen 
verwendet; ersatzweise „(*-*)“ als Doppel- 
zeichen-Begrenzer tippen. 


[-] 

kommt u.a. bei der Längendefinition von Strings 
vor; ersatzweise in Turbo-Pascal „(.-.)“ be- 
nutzen. 


+,-,%*, / 


sind mathematische ‚Operatoren wie in Ap- 
plesoft. 
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=, <>, <=, >- 

sind Vergleichsoperatoren wie in Applesoft, 
doch beachte man, daß ><, =< und => illegal 
sind. 


wird bei String-Werten, z.B. 'Demo’, verwen- 
det; in Applesoft Gänsefüßchen: "Demo"; 


3. Programmaufbau 


(Zu dem nachfolgenden Kapitel vergleiche man 
im Listing KURS1 die Abschnitte 1.0 und 2.0.) 


Ein Pascal-Programm besteht aus folgenden 
Teilen: 

. Kopf (PROGRAM) 

. Labels (LABEL) 

. Konstanten (CONST) 

. Typen (TYPE) 

. Variablen (VAR) 

. Prozeduren (PROCEDURE) (mit 7 mischbar) 
. Funktionen (FUNCTION) (mit 6 mischbar) 

. Programm (Hauptprogramm) 

Die Komponenten 1 und 8 sind obligatorisch, 
alle anderen fakultativ. Jede Komponente au- 
Ber dem Hauptprogramm selbst beginnt mit ei- 
nem reservierten Wort. In UCSD-Pascal muß 
die Reihenfolge strikt eingehalten werden; au- 
Berdem darf beispielsweise das reservierte 
Wort „VAR“ nur ein einziges Mal vorkommen. 
All diese Einschränkungen gelten nicht für 
Turbo-Pascal. 


oO P@OMPD — 


3.1. Kopf und Programm 
PROGRAM DEMO1; {1} 


BEGIN {8} 
WRITELN ("Anfang’): 
WRITELN (’Ende’) 
END. 


Der Kopf (1) besteht aus dem reservierten Wort 
„PROGRAM“, gefolgt von einem benutzerdefi- 
nierten Programmnamen, gefolgt von einem 
„5, hier also 

PROGRAM DEMO1; 

Vor dem Kopf stehen oft Compileroptionen in 
geschweiften Klammern. Beispielsweise be- 
deutet die Option 

{$LCONSOLE:} 


in UCSD-Pascal, daß während der Compilie- 


rung ein ausführliches Listing ($L) auf den Bild- 
schirm (= Console) ausgegeben wird. 

Nach dem Kopf steht in unserem KURSI-Li- 
sting 

USES TRANSCEND, APPLESTUFF; 

Damit ist gemeint, daß das UCSD-Programm 
aus der Programmbibliothek „SYSTEM.LIBRA- 
RY“ die (Maschinen)routinen oder Units 
„TRANSCEND“ und „APPLESTUFF“ benutzt. 
Dies gilt nicht für die Turbo-Pascal-Version von 
KURS1; dort sind die transzendenten Funktio- 
nen bereits standardmäßig implementiert. 


Das eigentliche Programm oder genauer Haupt- 
programm (8) beginnt mit dem Wort „BEGIN" 
und endet mit dem Wort „END”, gefolgt von 
einem „.“ Wenn der Compiler auf „END.“ mit 
Punkt stößt, hört er mit der Compilierung auf. 
Diesen Umstand kann man ausnutzen, um ZU- 


sätzliche, noch nicht fertig entwickelte Passa- 
gen des Quelltextes von der Compilierung aus- 
zuschließen. 

Zwischen „BEGIN“ und „END.“ stehen die 
einzelnen Befehle, die voneinander durch „;“ 
getrennt werden. Vor einem „END.“ (oder bei 
Prozeduren oder allgemein bei Verbundanwei- 
sungen vor einem „END;“) muß deshalb nie- 
mals ein Semikolon stehen. Man darf es jedoch‘ 
grundsätzlich setzen (sog. Leeranweisung). 


Die Befehle eines Pascal-Programms werden 
im einfachsten Fall sequentiell abgearbeitet, al- 
so hier erst | 

WRITELN (’Anfang'); 

und dann 

WRITELN (’Ende’) 

„BEGIN“ und „END“ haben eine Art Einklam- 
merungsfunktion („Verbundanweisung“), wor- 
auf weiter unten eingegangen wird. 
Zeilennummern fehlen in Pascal, wenn man von 
dem selten benutzten GOTO-LABEL-Befehl 
absieht, der in Form eines Beispiels ohne weite- 
re Erläuterungen demonstriert werden soll: 


PROGRAM GEHEN; 
{$G+} 

LABEL 1,2,3,4; 
BEGIN GOTO 3; 

1: WRITELN (1); 
GOTO 4; 

2: WRITELN (2); 
GOTO 1; 

3: WRITELN 6); 
GOTO 2, 

4: WRITELN (4) END. 


Dieses für Puristen und Nicht-Puristen gleicher- 
maßen abschreckende Beispiel gibt die Zahlen 
3, 2, 1,4 (in dieser Reihenfolge) aus. 


3.2. Konstanten und Variablen 
PROGRAM DEMO3; {1} 


CONST {3} 
IK = 10; 

RK = 1.2345; 
CK= x 

SK = 'xyz’; 


VAR {5} 


IV: INTEGER; 
RV: REAL; 


CV: CHAR; 


SV: STRING; 


BEGIN {8} 
WRITELN (IK); 
END. 


Bei diesem erweiterten Demo werden zusätz- 
lich Konstanten (3) und Variablen (5) definiert. 


Die Konstantendefinition beginnt mit dem 
Wort „CONST“, gefolgt von einer oder mehre- 
ren Gleichsetzungen, die jeweils durch „;” ab- 
geschlossen werden (auch die letzte Gleichset- 
zung). Gleichsetzungen haben links vom „=" 
einen benutzterdefinierten Bezeichner und 
rechts vom „=" einen Wert. Im einzelnen gilt 
(Beispiele): 
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|= 10; 

wird als Integer-Zahl erkannt. 

R = 10.0; 

wird als Real-Zahl erkannt. 

C='A'; 

wird als Char = „Character“ = Einzelzeichen 
erkannt (oder als 1-Zeichen-String). 

S = 'ABC'’; 

wird als Zeichenkette = Zeichenfolge = String 
erkannt. 

Bei ganzen Zahlen, die Real-Zahlen sein sollen, 
muß man also einen Dezimalpunkt einfügen, 
damit der Compiler weiß, ob eine Integer- oder 
eine Real-Zahl gemeint ist. Man beachte näm- 
lich, daß es im Gegensatz zu Applesoft in Pas- 
cal keine Typzusätze wie „%" für Integer-Zah- 
len oder „$“ für Strings gibt. Außerdem beachte 
man, daß im Unterschied zu Applesoft in Pascal 
eine Konstante wirklich eine Konstante ist, also 
nachträglich im Programm nicht mehr umdefi- 
niert werden kann. 


Die Variablendefinition beginnt mit dem Wort 


„VAR“, gefolgt von einer oder mehreren Typ- 
bestimmungen, die jeweils durch „;“ abge- 
schlossen werden (auch die letzte Typbestim- 
mung). Typbestimmungen haben links vom „:” 
einen benutzterdefinierten Bezeichner und 
rechts vom „:“ eine Datentypbezeichnung. Es 
gibt u.a. folgende elementare Datentypen: 


R: REAL; 

Fließkommazahl: in Applesoft 9stellige Mantis- 
se = intern 5 Bytes, in UCSD-Pascal 6stellige 
Mantisse = intern 4 Bytes, in Turbo-Pascal 
11stellige Mantisse = intern 6 Bytes. 


I: INTEGER; 

Ganzzahl mit Vorzeichen im Bereich -32768 bis 
+32767: in Applesoft sowie UCSD- und Turbo- 
Pascal intern 2 Bytes. 


C: CHAR; 

Einzelnes Zeichen: in UCSD-Pascal intern 2 (!) 
Bytes, in Turbo-Pascal intern 1 Byte, in Ap- 
plesoft „String mit 1 Zeichen“. Die 2 Bytes 
rühren bei UCSD-Pascal daher, daß intern 
grundsätzlich nur mit „Words“ = Wörtern = 
Doppelbytes gearbeitet wird. Dies gilt nicht für 
Turbo-Pascal. 


S: STRING; {nur UCSD!} 

S1: STRING[10] 

S2: STRING[255] 

Zeichenkette oder String. Die Länge, die wie in 
Applesoft bis zu 255 Zeichen betragen kann, 
muß in eckigen Klammern angegeben werden. 
Im Gegensatz zu Applesoft darf die Länge einer 
‘ String-Variablen in Pascal zwar während des 
Programms schrumpfen, aber niemals über die 
vordefinierte Länge hinauswachsen. Es gibt al- 
so keinen sich dynamisch verändernden String- 
Pool mit Garbage-Collection. 

Wenn die Längenangabe in UCSD-Pascal fehlt, 
nimmt der Compiler eine Länge von 80 Zeichen 
an. Strings werden intern „gepackt“ gespei- 
chert, d.h. 1 Byte pro Zeichen, denn Strings 
sind eigentlich sog. „PACKED ARRAYs OF 
CHAR“. (In Turbo-Pascal entfällt „PACKED" 
durch automatisches Packen.) 

Auf die Darstellung weiterer elementarer 
Datentypen, z.B. BOOLEAN (UCSD/Turbo) 
oder BYTE (nur Turbo), sowie „höherer“ 
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Datentypen, die mit „TYPE“ definiert werden, 
wird in diesem ersten Teil verzichtet. 


In Pascal müssen grundsätzlich alle Konstanten 
und Variablen vor deren Benutzung „deklariert“ 
werden, und zwar bereits vor dem ersten „BE- 
GIN“. Dies gilt beispielsweise auch für Laufva- 
riablen von FOR-Schleifen. Ein Applesoft-Pro- 
grammierer könnte nun annehmen, daß man bei 
einem großen Programm zunächst Hunderte 
von Variablen festlegen müßte, bevor man mit 
der eigentlichen Programm anfängt. Dem ist 
jedoch nicht so. Infolge der Möglichkeit lokaler 
Variablen bei Prozeduren (in unserem KURS1 
nicht benutzt) reduziert sich die Anzahl der glo- 
balen Definitionen auf ein Minimum. Hinzu 
kommt, daß lokale Namen mit globalen Namen 
formal identisch sein können, so daß man kei- 
spielsweise die FOR-Laufvariable | ungerührt 
innerhalb von verschiedenen Prozeduren je- 
weils neu definieren kann. 


Abschließend sei auf die Unterschiede zwi- 
schen „=", „:“ und „:=" eingegangen. 


„=" wird u.a. erstens bei Konstantendeklaratio- 
nen und zweitens bei Vergleichen benutzt, z.B.: 
CONSTK = 10; | 
IFK= 10 THEN ... 

Dies entspricht der Applesoft-Syntax. 


„. wird u.a. bei Variablendeklarationen benutzt, 
z.B; 

VAR R: REAL; 

Variablendeklarationen entfallen in Applesoft, 
denn dort werden sie „beim Gebrauch erklärt“. 


„:=" wird bei Wertzuweisungen benutzt, z.B. 
R := 123.456; 

Hier wird in Applesoft entweder die Form 
LETR = 123.456 

oder üblicherweise die Form 

R = 123.456 gewählt. 


3.3. Prozeduren 
PROGRAM DEMO3; {1} 


PROCEDURE A1; {6} 
BEGIN 

WRITELN (’Prozedur’) 
END; 


BEGIN {8} 
At 
END. 


In Applesoft beginnen Unterprogramme, die mit 
GOSUB n aufgerufen werden, mit einer be- 
stimmten Zeilennummer n und enden mit RE- 
TURN. In Pascal beginnen Unterprogramme mit 
dem reservierten Wort „PROCEDURE, gefolgt 


von einem benutzterdefinierten Namen, gefolgt 


von „;", also z.B. 

PROCEDURE A1; 

Das eigentliche Unterprogramm beginnt dann 
mit „BEGIN“ und endet mit „END;“ mit Semi- 
kolon (im Gegensatz zum „END.“ mit Punkt 
beim Hauptprogramm). Der Aufruf des Unter- 
programms bzw. der Prozedur erfolgt im Haupt- 
programm durch einfache Angabe des Proze- 
durnamens, also z.B. 

Al; 

Mit dieser vereinfachten Erklärung sind die be- 
achtlichen Leistungen einer Pascal-Prozedur 
(sowie der analogen Pascal-Funktion) im Ver- 


pascal 44 


gleich zu den relativ eingeschränkten Ap- 
plesoft-GOSUBs jedoch bei weitem nicht ge- 
würdigt, denn neben der Möglichkeit lokaler 
Variablen können auch Variablenwerte zwi- 
schen Unterprogramm und Hauptprogramm 
ausgetauscht werden. Eigentlich sollte im Li- 
sting KURS1 das Wort „Prozedur“ überhaupt 
nicht vorkommen, doch kann man in UCSD- 
Pascal im Gegensatz zu Turbo-Pascal größere 
Programme, wozu der KURS1 bereits gehört, 
gar nicht ohne Prozeduren schreiben, weil das 
Hauptprogramm in UCSD-Pascal nicht mehr als 
gut 1000 Bytes umfassen darf. Deshalb muß 
man auch dann Unterprogramme bilden, wenn 
diese nur ein einziges Mal aufgerufen werden. 
Da Prozeduren außerdem vor dem Hauptpro- 
gramm aufgeführt werden müssen, führt dies zu 
einer starken „Kopflastigkeit“ des Pascal-Pro- 
gramms: Auf eine große Anzahl von Prozedu- 


ren folgt ein verkümmertes Hauptprogramm, 


das sich im Aufruf der einzelnen Prozeduren 
erschöpft. Deshalb kann man große UCSD- 
Pascal-Programme nie von vorne nach hinten 
kontinuierlich schreiben bzw. lesen. 


Il. Kommentar 
zum KURS1 


Der KURS1 gliedert sich in die Abschnitte 2.1. 
bis 2.8. Wenn Sie die Peeker-Sammeldisk #10 
besitzen, so konvertieren Sie sich die ge- 
wünschte Version (UCSD.TEXT bzw. TURB- 
.PAS) auf ihre Pascal-Systemdiskette und com- 
pilieren Sie den Quelltext, wie es im Peeker 10/ 
1985, S. 46 beschrieben wurde. Dann starten 
Sie den KURS1 mit den Run-Befehl. Nun wäh- 
len Sie aus dem Bildschirm-Menü der Reihe 
nach die 8 Demos aus und vergleichen Sie das 
Bildschirm-Ergebnis mit dem entsprechenden 
Abschnitt des Listings sowie den nachfolgen- 
den Kommentar-Abschnitten 1 bis 8. Wenn Sie 
den jeweiligen Abschnitt verstanden haben, so 
nehmen Sie einige Änderungen in den Befehls- 
beispielen vor, denn nur durch eigene Anwen- 
dung der Befehle werden Sie mit ihnen richtig 
vertraut werden. In den Kommentaren werden 
auch einige zusätzliche Befehle genannt, die 
entweder nur in UCSD- oder nur in Turbo- 
Pascal vorkommen. 


1. Bildschirm-Ausgabe 


WRITE: Der WRITE-Befehl schickt die Werte 
einfacher Datentypen (Integer, Real, Char und 
String) an das momentane Ausgabegerät, das in 
unserem Beispiel stets der Bildschirm ist; ande- 
re Ausgabegeräte sind Drucker, Diskettendatei 
usw. Auf das Befehlswort WRITE folgt in runden 
Klammern entweder ein Wert oder mehrere 
durch Kommas getrennte Werte. Diese Tren- 
nung von Aufzählungen durch Kommas gilt 
auch für viele andere Pascal-Konstrukte, z.B. 
VAR 

A,B,C: INTEGER; 

statt 

VAR 

A: INTEGER; 

B: INTEGER; 

C: INTEGER; 

Man beachte, daß in Pascal auf jeden Befehl ein 
„;‚ folgt, sofern danach kein END steht. Das 
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Pascal-,„;“ entspricht dem Applesoft- „:“. 
Beispiele für die Typen Integer, Real, Char und 
String: 

{Je 1 Wert} 

WRITE (1); 

WRITE (123.456); 

WRITE (’P’); 

WRITE ("Peeker’); 

{Je 2 Werte} 

WRITE (1,2); 

WRITE (1.1, 2.2); 

WRITE (’A’, 'B’); 

WRITE (’AA’, 'BB’); 

{Je 1 Konstante} 

WRITE (IK); 

WRITE (RK); 

WRITE (CK); 

WRITE (SK); 

{Konstante + Variable} 

WRITE (IK, IV); 

WRITE (RK, RV); 

WRITE (CK, CV); 

WRITE (SK, SV); 

Man beachte die einfachen Anführungszeichen 
bei Stringwerten. Ferner beachte man, daß 
Kommentare in geschweifte Klammern = Akko- 
laden gesetzt werden. Und schließlich denke 
man immer an das „;“. Dies kann nicht oft 
genug eingehämmert werden, denn ein einzi- 
ges fehlendes „;“ bedeutet vollständige Neu- 
compilierung! 

Bei Stringwerten ist zu bemerken, daß man 
über ca. 78 Zeichen (in Applesoft ca. 230 Zei- 
chen) normalerweise nicht hinausgehen kann. 
Bei längeren Texten muß man entsprechend 
stückeln. Während in Applesoft das Gänsefüß- 
chen ein Problem darstellt, stellt in Pascal der 
Apostroph ein Problem dar. Mit z.B. 

WRITELN (’Pascal”s triangle'); 

kann man den Apostroph ausgeben. 


WRITELN: Im Unterschied zu WRITE schickt 
WRITELN in UCSD-Pascal ein Return und in 
Turbo-Pascal ein Return-Linefeed nach dem 
letzten Wert, also quasi nach dem „)“, hin- 
terher: 

WRITELN (1); 

ergibt 1 + Return. 

WRITELN (1, 2); 

ergibt 12 + Return. 

Steuerzeichen können mit 

S := CHR (X); {zu „:=" und CHR s.u.} 
definiert werden (in Applesoft mit CHR$ (X)), 
wobei S eine (String- oder) Char-Variable ist 
und X die Nummer des Ctrl-Zeichens darstellt. 
In UCSD-Pascal wird R = Return als 

R := CHR (13); {Char} 

und in Turbo-Pascal als 

R := CHR (13) + CHR (10); {String} 

definiert. 

Für ein hacktes Return bzw. Return-Linefeed 
genügt bei beiden Versionen jedoch auch das 
parameterlose 

WRITELN; 


Invers/Normal: Für inverse Bildschirmdarstel- 
lung gilt in Apple-Pascal 1.2 (nicht Altversion 
1.11) 

WRITE (CHR (15)); {invers} 

WRITE (CHR (14)); {normal} 

und in Turbo-Pascal — ähnlich wie INVERSE/ 
NORMAL in Applesoft: 

LOWVIDEO; {invers} 

NORMVIDEO; {normal} 
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Home: Den Bildschirm löscht man in UCSD- 
und Turbo-Pascal mit 

WRITE (CHR (12)); 

oder nurin UCSD-Pascal mit 

PAGE (OUTPUT); 

oder nur in Turbo-Pascal mit 

CLRSCR; 


GOTOXY: Der Cursor läßt sich mit GOTOXY 
(X,Y) positionieren, wobei X für die Spalte 
(UCSD: 0-79, Turbo: 1-80) und Y für die Zeile 
steht (UCSD: 0-23, Turbo: 1-24). Das von Ap- 
plesoft her bekannte HTAB 1, VTAB 5 wäre also 
in Turbo-Pascal mit 

GOTOXY (1,5); 

und in UCSD-Pascal mit 

GOTOXY (0,4); 

zu programmieren. 


2. Formatierung 


Der WRITE/WRITELN-Befehl läßt eine rechts- 
bündig-formatierte Ausgabe (Print-Using) von 
Zahlen und Strings zu. Die allgemeine Form 
lautet 


WRITELN (Ausdruck:G:N); 

wobei G für die Gesamtanzahl der Stellen des 
Feldes und N für die Nachkommastellen (nur 
bei Fließkomma-Zahlen) steht. Beispiele (jedes 
„Il“ steht für 1 Leertaste): 

WRITELN (1:5); 

gibt die Integer-Zahl 1 aus als 

OOO0O 1 

WRITELN (’A’:3); 

ergibt 

UODJA 

WRITELN (’Peeker’:7); 

ergibt 

UPeeker 

Bei formatierten Fließkomma-Zahlen wird die 
letzte Nachkommastelle gerundet, so daß man 
die unterschiedlich langen Mantissen in UCSD- 
und Turbo-Pascal beachten muß. In UCSD- 
Pascal ist wegen der nur 6stelligen Mantisse oft 
keine sinnvolle Rundung möglich. Beispiele: 
WRITELN (-123.477:7:2); 

ergibt 

-123.48 

WRITELN (123.477:7:2); 

ergibt 

[1123.48 

Wenn eine Rundung in dem angegebenen G-N- 
Format nicht mehr möglich ist, wird automatisch 
auf das für unformatierte Real-Zahlen sonst üb- 
liche Exponentialformat (oder bei Turbo-Pascal 
auf Zusatznullen ...000...) umgeschaltet, wo- 
durch das Feld überschritten werden kann. 
Wenn die WRITELN-Anweisung Formelaus- 
drücke enthält, so steht die G-N- NEN 
ganz am Schluß, z.B. 

WRITELN ((5.3 - 4.2) & 3.1:8:2); 

Bei nicht-formatierter Ausgabe von Real-Zahlen 
steht in der ersten Stelle im Falle einer negati- 
ven Zahl ein „-“ und im Falle einer positiven 
Zahl eine Leertaste und kein „+“. In Turbo- 
Pascal wird noch eine weitere Leertaste voran- 
gestellt. Beispiel: 

WRITELN (123.456); 

ergibt in UCSD-Pascal 

U[11.2345E2 

und in Turbo-Pascal 

U011.2345600000E +02 


3. Wertzuweisungen 


Die Wertzuweisung zu einer Variablen heißt in 
Applesoft 

V = Ausdruck 

und in Pascal 


V := Ausdruck; 

Links vom „:=" steht eine Integer-, Real-, 
Char- oder String-Variable, und rechts vom 
„.=" steht ein Literal („wörtlicher“ Ausdruck), 
eine Konstante, eine Variable oder ein Formel- 
ausdruck. Beispiele: | 


IV := 10; 

RV := 10,5; 
CVi='A'; 

SV := 'Turbo’; 
V:=IK; 

RV := RK; 

CV :='CK; 

SV := SK; 
RV:=RV+RV; 
RV := 10.5 + 20.5; 
RV:=RK+ 10,5; 


Zu den Formelausdrücken s. nächste Ab- 
schnitte. 


In UCSD- und Turbo-Pascal gibt es die System- 
konstante 


MAXINT 

(= maximale Integer-Zahl 32767), 

die u.a. bei der Wertzuweisung verwendet wird, 
z.B. 


IV := MAXINT; 
Hierfür könnte man auch schreiben: 
IV. := 32767: 


Andere Systemkonstanten sind TRUE, FALSE 
NIL und - in Turbo-Pascal — Pl. 

Man beachte „=" und „:=" bei z.B. 

(a) CONSTK = MAXINT; 

(b) V := MAXINT; 

Bei (a) handelt es sich um eine Konstantende- 
klaration, bei (b) um eine Wertzuweisung. 


4. Tastatur-Eingabe 


READ: Dieser Befehl, der in Klammern eine 
Variable erwartet, entspricht etwa dem GET- 
Befehl in Applesoft. Man verwendet READ, um 
ein einzelnes Zeichen über das momentane 
Eingabegerät einzulesen. Dies ist hier die Ta- 
statur (sowie sonst z.B. ein Disketten-Textfile). 
Beispiel: 

READ (CV); 

Bei diesem Befehl wartet UCSD-Pascal auf ei- 
nen Tastendruck. Tippt man „A“, so wird er- 


stens das Zeichen „A“ angezeigt und zweitens 


der Char-Variablen CV zugewiesen. Nach „A“ 
braucht man in UCSD-Pascal kein Return zu 
drücken. In Turbo-Pascal ist hingegen ein Re- 
turn erforderlich. 


READ (KEYBOARD, CV); {UCSD} 
unterscheidet sich von READ (CV) dadurch, daß 
das getippte Zeichen nicht am Bildschirm ange- 
zeigt wird. „KEYBOARD“ gehört zu den vorde- 
finierten Bezeichnern. In Turbo-Pascal heißt der 
entsprechende Befehl 

READ (KBD, CV); {Turbo} 

Hier ist wie bei den UCSD-Befehlen READ (CV) 
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und READ (KEYBOARD, CV) kein Return erfor- 
derlich. Um das UCSD-READ-(CV) in Turbo- 
Pascal zu simulieren, verwende man die Be- 
fehlsfolge 

READ (KBD, CV); WRITE (CV); 


READLN: Dieser Befehl liest eine String-Varia- 
ble (= eines oder mehrere Zeichen) ein, zeigt 
den String am Bildschirm an und erwartet Re- 
turn als Ende der Eingabe, z.B. 

READ (SV); 

Man kann mit READLN auch Integer- und Real- 
Zahlen eingeben, doch „verabschiedet“ sich 
Pascal mit einem Systemfehler, wenn man bei 
Zahlen nicht die zulässigen Zahlzeichen ver- 
wendet. Bei 

READ (IV); | 
wäre bereits eine Leertaste zwischen 2 Ziffern 
„tödlich“. Deshalb gehört ein narrensicheres 
Zahlen-READLN zu den Standard-Prozedur- 
Übungen eines jeden UCSD-Pascal-Novizen. 
(In Turbo-Pascal kann man wie in Applesoft 
über die VAL-Funktion einen eingegebenen 
String in eine Zahl konvertieren.) 


5. Integer-Mathematik 


Die Ganzzahl-Mathematik ist für Kenner des 
alten Apple-Integer-BASIC nichts Neues. In 
Applesoft selbst gibt es keine echte Integer- 
Mathematik, wohl aber bei bestimmten Ap- 
plesoft-Compilern (z.B. TASC- oder Hayden- 
Compiler). 

Ganzzahlen liegen im Bereich -32768 bis 
+32767 (intern in UCSD- und Turbo-Pascal 2 
Bytes). 


+, - und x: Dies sind die einfachen Operato- 
ren; hinzu kommt noch +/- als Vorzeichen, das 
ohne Leertaste direkt vor die Zahl gesetzt wer- 
den muß. Beispiele: 


IV := 10 + 20; 

IV := 20 - 10; 

IV := 10% 10; 

WRITELN (-10 + -20); {nur Turbo} 

Die Zuweisung (Fließkomma-Variable := Inte- 
ger-Ausdruck) ist zulässig, z.B. 

RV:=3+5; 


Die umgekehrte Anweisung (Integervariable := 
Fließkomma-Ausdruck), z.B. 

IV := 3.1 - 3.2; 

ist im Gegensatz zu Applesoft verboten. 

Man merke sich bereits jetzt zwei Besonderhei- 
ten von Pascal: 

1. Auf das Mischen von Datentypen reagiert der 
Pascal-Compiler oft „unwirsch“. Ein Mischung 
in der Art 

RV := 10 + 10.5; 

ist gerade noch zulässig. 

2. Pascal-Variablen werden beim Programm- 
start im Gegensatz zu Applesoft nicht automa- 
tisch auf O gesetzt. Das Mini-Programm 
PROGRAM TEST; 

VAR R: REAL; 

BEGIN 

WRITELN (R) 

END. 

hätte zur Folge, daß für R derjenige „Wert“ 
angezeigt wird, der sich zufällig im Speicher 
befindet. 

DIV und MOD: Wenn gilt 

Dividend : Divisor = Quotient + Rest 

dann gilt 
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DIV = Quotient-Operator, 

MOD = Rest-Operator. 

Beispiele: 

WRITELN (7 DIV 3); 

ergibt 2. 

WRITELN (7 MOD 3); 

ergibt 1. 

ABS: Die Absolutfunktion eliminiert ein mögli- 
ches Vorzeichen, z.B. 

WRITELN (ABS (-10)); 

ergibt 10. 

SQR: Im Gegensatz zum Applesoft-SQR ist 
hier das Quadrat und nicht die Quadratwurzel 
gemeint: 

WRITELN (SQR (10)); 

ergibt 100. 


PRED und SUCC: PRED = Predecessor = 
Vorgänger = Integer-Zahl - 1; SUCC = Suc- 
cessor = Nachfolger = Integer-Zahl + 1. Bei- 
spiele: 
WRITELN (PRED (10)); 

ergibt 9. 

WRITELN (SUCC (10)); 

ergibt 11. 

Vgl. auch Abschnitt 8: PRED und SUCC bei 
Char-Variablen. 


ROUND und TRUNC: Hierbei handelt es sich 
um das Runden (ROUND) oder Abhacken 
(TRUNC von to truncate) einer Fließkomma- 
Zahl zu einer Integer-Zahl, z.B. 

WRITELN (ROUND (10.8)); 

ergibt 11 und 

WRITELN (TRUNG (10.8)); 

ergibt 10. 

Wenn sich beim Runden/Abhacken eine zu gro- 
Be Integer-Zahl ergeben würde, erfolgt eine 
Fehlermeldung. Nur in Turbo-Pascal gibt es wie 
in Applesoft die INT-Funktion für Real-Zahlen, 
die größer als MAXINT sind, z.B. 

WRITELN (INT (1234567 .89)); 


RANDOM |iefert in UCSD-Pascal eine Integer- 
Zufallszahl, z.B. 
WRITELN (RANDOM); 


IV := RANDOM; 
In Turbo-Pascal ist 
RV := RANDOM; 


ohne Parameter eine Fließkomma-Funktion und 
IV := RANDOM (OBERGRENZE); 

mit Parameter eine Integer-Funktion. 
PWROFTEN (Power of Ten = Zehnerpotenz; 
fehlt in Turbo-Pascal) hat in UCSD-Pascal als 
Argument einen Integer-Exponenten zur im 
Ausdruck nicht erwähnten Basis 10, z.B. 
WRITELN (PWROFTEN (2)); 

ergibt 100 (10 ? 2). 

In Turbo-Pascal gibt es noch weitere, insbeson- 
dere für Assemblerprogrammierer interessante 
Integer-Operationen, z.B. SHL = Shift Left, 
SHR = Shift Right, HI = High Byte, LO = Low 
Byte, SWAP = Low/High-Vertauschung, sowie 
im übrigen den zusätzlichen Datentyp BYTE. 


6. Fließkomma-Mathematik 


Die Fließkomma-Operatoren und -Funktionen 
sind in Pascal und Applesoft gleichartig, so daß 
wir nur auf die Besonderheiten aufmerksam zu 
machen brauchen. 

+, -, *, / sind die üblichen Operatoren für plus/ 
minus/mal/geteilt. Beispiele: 


pascal E97 


RV := (1.1 + 2.2) & (3.3 - 2.2); 

WRITELN (1.1 x 2.2 + 3.3); 

WRITELN (1.1 & (2.2 + 3.3)); 

Man beachte die von Applesoft her bekannten 
Prioritätsregeln: Punkt geht vor Strich, Klammer 
vor alles. Ferner sei darauf hingewiesen, daß 
die Ausgabe von Real-Werten stets im Expo- 
nentialformat erfolgt, sofern keine G-N-Forma- 
tierung (s. Abschnitt 2) spezifiziert wird. 


Potenz: Der Applesoft-„hoch“-Operator „X T 
Y“ fehlt in Pascal und muß durch 

EXP (Y*LN (X)); 

simuliert werden. Beispiel: 

WRITELN (EXP (3.0 * LN (2.0))); 

entspricht 2 ? 3. 


SQR und SQRT: SQOR steht für „Square“ = 
Quadrat = X * X, und SORT steht für „Square 
Root“ = Quadratwurzel von X. In Applesoft 
steht SOR für SORT. Beispiele: 

WRITELN (SQR (3.0)); 

ergibt 9.0. 

WRITELN (SORT (9.0)); 


ergibt 3.0. | 


SIN, COS, ATAN: Dies sind die üblichen trigo- 
nometrischen Funktionen Sinus, Cosinus und 
Arcustangens. Die Berechnung erfolgt wie in 
Applesoft im Bogenmaß (= Pi/180; Gegensatz: 
Gradmaß = 360 Grad). Als Umrechnungsfaktor 
verwende man in Turbo-Pascal 


F:= PI/ 180; 
oder in UCSD-Pascal 
F':= 0.017453: 


Es gilt dann (Beispiele): 

WRITELN (SIN (30 x F)); 

ergibt theoretisch 0.5, und 

WRITELN (COS (60 « F)); 

ergibt ebenfalls theoretisch 0.5. In Turbo-Pascal 
ist die Konstante PI (analog zur Konstanten 
MAXINT) zusätzlich implementiert. 

Die TAN-Funktion fehlt in Pascal und muß 
durch 

RV := SIN (X) / COS (X); 

simuliert werden. 

Statt ATAN in UCSD-Pascal heißt es ARCTAN 
in Turbo-Pascal. 


LOG, LN, EXP: LOG steht nur in UCSD-Pascal 
für die dekadische Logaritnmus-Funktion (fehlt 
in Turbo-Pascal). LN steht in UCSD/Turbo-Pas- 
cal für die natürliche Logaritnmus-Funktion (in 
Applesoft LOG genannt). Und EXP steht in 
UCSD/Turbo-Pascal für die Exponentialfunktion 
von e. Beispiele: 

WRITELN (LOG (100)); 

ergibt 2, weil 10 7 2 = 100. 

WRITELN (LN (2.7182818285)); 

ergibt 1, weile 1 =2.71.... 

WRITELN (EXP (1)); 

ergibt 2.7182818285. 

In Turbo-Pascal begegnet man noch den zu- 
sätzlichen Funktionen INT (= Stellen vor dem 
Dezimalpunkt) und FRAC (= Stellen nach dem 
Dezimalpunkt). Beispiele: 

WRITELN (INT (12345.6789)); 

ergibt theoretisch 12345.0, und 

WRITELN (FRAC (12345.6789)); 

ergibt theoretisch 0.6789. 


Abschließend sei darauf hingewiesen, daß eine 
Reihe der UCSD-Integer- und Real-Funktionen 
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nur in der sog. System-Library enthalten sind 
und deshalb über 

USES TRANSCEND, APPLESTUFF, 

in den Objektcode eingebunden werden müs- 
sen. In Turbo-Pascal gibt es normalerweise kei- 
ne Libraries, so daß alle o.g. Funktionen auto- 
matisch vorhanden sind. | 


7. Verzweigungen und Schleifen 


Während bei der Integer- und Fließkomma-Ma- 


thematik die Gemeinsamkeiten zwischen Ap- 
plesoft und Pascal noch sehr groß waren, kom- 
men wir jetzt allmählich zu den pascaltypischen 
Befehlskonstruktionen. 

<,=,>, <=, >=, <>: Hierbei handelt es sich 
um die von Applesoft her bekannten Ver- 
gleichsoperatoren. Man beachte, daß „><“, 


„=>" im Gegensatz zu Applesoft illegal sind. - 


OR, AND, NOT: Dies sind die ebenfalls in Ap- 
plesoft verwendeten Wahrheitswert-Operatoren 
= logischen Operatoren = booleschen Opera- 
toren (benannt nach George Boole, geb. 1815; 
„boolesche“ klein und ohne Apostroph). Dane- 
ben gibt es noch den Datentyp BOOLEAN und 
die Konstanten TRUE und FALSE, worauf an 
dieser Stelle nicht eingegangen wird. 


IF-THEN-ELSE 

Der sequentielle Befehlsfluß eines Pascal-Pro- 
gramms wird durch Verzweigungen, Schleifen 
und Unterprogramme durchbrochen. Beim IF- 
THEN-(ELSE-)Befehl muß man drei Befehlstei- 
le unterscheiden: 

— THEN-Befehle T1, T2... 

—- ELSE-Befehle E1, E2... 

— Weitere Befehle W1, W2... 


IF-THEN läßt sich umschreiben mit „Wenn Be- 
dingung erfüllt ist, dann THEN-Befehl(e) T1, 
T2... ausführen, ansonsten direkt die weiteren 
Befehle W1, W2... ausführen.“ Je nachdem, ob 
von THEN ein einziger Befehl oder mehrere 
Befehle abhängen, unterscheidet man: 


IF Bedingung THEN 
FL 
WER: 


oder 


IF Bedingung THEN 
BEGIN 

#1; 

T2 

END; 

W;... 


Im letzteren Fall ist die BEGIN-END-Klamme- 
rung (= Verbundanweisung) erforderlich. Be- 
trachten wir hierzu folgende Beispiele: 


IF1= 1 THEN 

WRITELN ('T1’); 

WRITELN ('W1’); ... | | 
Hier werden T1 und W1 ausgegeben; 1-Befehl- 
Beispiel, Bedingung erfüllt. 


IF1=2THEN 

WRITELN (’T1'); 

WRITELN ('W1’); 

Hier wird nur Wi ausgegeben; 1-Befehl-Bei- 
spiel, Bedingung nicht erfüllt. 
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IF1= 1 THEN 
WRITELN ('T1’); 
WRITELN ('T2'); 
WRITELN ('W1'); 

Hier werden T1, T2 und W1 ausgegeben; fal- 
sches 2-Befehl-Beispiel, das sich jedoch nicht 
negativ auswirkt, weil Bedingung erfüllt ist. 


IF1=2THEN 

WRITELN ('T1'); 

WRITELN ('T2'); 

WRITELN (’W1'); 

Hier werden T2 und W1 ausgegeben; falsches 
2-Befehl-Beispiel, das sich negativ auswirkt, 
weil Bedingung nicht erfüllt ist. 


IFi=2THEN 

BEGIN 

WRITELN ('T1’); 

WRITELN ('T2') 

END; 

WRITELN (’W1’); 

Hier wird nur W1 ausgegeben; richtiges 2-Be- 
fehl-Beispiel, Bedingung nicht erfüllt. 


Wir merken uns: Wird die Bedingung erfüllt/ 
nicht erfüllt, dann wird die THEN-Anweisung/ 
THEN-Verbundanweisung ausgeführt/nicht 
ausgeführt. Nach einem „THEN“ können theo- 
retisch beliebig viele Befehle durch „BEGIN- 
END“ verbunden werden. In Applesoft können 
zum Vergleich nach einem THEN nur so viele 
Befehle folgen, wie noch in den Rest der Pro- 
grammzeile passen. Vergißt man die BEGIN- 
END-Klammerung bei mehreren THEN-Befeh- 
len, so fährt Pascal in jedem Fall mit dem zwei- 
ten Befehl nach dem THEN fort. Die Einklam- 
merung wird vor allen Dingen dann kritisch, 


wenn verschachtelte IF-THEN-Konstruktionen. 


verwendet werden. Ohne Verbundanweisungen 
könnte man sich nämlich dann nur noch durch 
GOTOs retten. 


IF-THEN-ELSE läßt sich umschreiben mit 
„Wenn Bedingung erfüllt ist, dann THEN-Be- 
fehl(e) T1, T2... ausführen, andernfalls ELSE- 
Befehl(e) E1, E2... ausführen, und danach in 
jedem Fall mit den weiteren Befehlen W1, W2... 
fortfahren“. Man merke sich, daß vor dem Wort 
„ELSE“ die „;“-Leeranweisung verboten ist. 
Betrachten wir nun folgendes Beispiel: 


IFA=BTHEN 
BEGIN 
WRITELN ('T1'); 
WRITELN ('T2') 


: END {hier kein „;"!} 


WRITELN ('W1'); 

Wenn A = B wahr ist, dann werden T1, T2 und 
W1 ausgegeben. Wenn A = B falsch ist, dann 
werden E1, E2 und W1 ausgegeben. Würde das 
Wort „ELSE“ fehlen, dann würden in jedem Fall 
auch E1 und E2 ausgegeben. „ELSE“ wird also 
benötigt, um vor den weiteren Befehlen Wi, 
W2... anstelle der Wahr-THEN-Alternative T1, 
T2... die Falsch-ELSE-Alternative E1, E2... aus- 
führen zu können. 


CASE-OF-END 

IF-THEN und IF-THEN-ELSE sind Entscheidun- 
gen, die von dem Wahrheitsgehalt einer Bedin- 
gung, d.h. einem einzigen logischen Vergleich, 
abhängen. Am übersichtlichsten wären Ent- 
scheidungen, die von mehreren Bedingungen 
abhängen könnten, z.B. 


YA=B .,; 
2:A>DB..: 
USW. 


Eine ähnliche Konstruktion gibt es in Pascal in 
Form der CASE-Anweisung, bei der jedoch kei- 
ne logischen Bedingungen, sondern nur feste 
Werte in bezug auf eine vorgegebene Datentyp- 
Variable — Selektor genannt — zur Auswahl ste- 
hen. Beispiel: 


PROGRAM FAELLE; 
VAR |: INTEGER; 
BEGIN 

WRITE (ZAHL 1-3:’); 
READLN (I); 

CASE | OF {CASE-Anfang} 
1: WRITELN (1); 

2: WRITELN (2); 

3: WRITELN (3) 

END {CASE-Ende} 
END. {Programm-Ende} 


Die allgemeine Form lautet: 
„CASE“ + Selektor + „OF“ 
Werti + „:“ + Befehl(e); 
Wert2 + „:" + Befehl(e); usw. 
END; 


In Turbo-Pascal (nicht in UCSD-Pascal) kann 
man vor dem „END“ der CASE-Anweisung mit 
einer ELSE-Anweisung fortfahren. Eine detail- 
lierte Explikation des CASE-Befehls ist an die- 
ser Stelle noch nicht sinnvoll. Wichtig ist dage- 
gen bereits hier der allgemeine Hinweis, daß im 
Gegensatz zu Applesoft die logischen Operato- 
ren in der Prioritätsskala vor den Vergleichsope- 
ratoren rangieren, so daß man bei kombinierten 
Ausdrücken stets einklammern muß, also in 
Pascal 

IF(1 = 1) AND (2 = 2) THEN... 

und nicht wie in Applesoft 
IF1=1AND2=2THEN ... 

denn dies würde in Pascal 

IF1= (1 AND2) = 2 THEN... 

bedeuten, was prompt zu einer Compiler-Feh- 
lermeldung führen würde. 


FOR-TO/DOWNTO-DO 
Die von Applesoft her bekannte Aufwärtszähl- 
schleife, z.B. 

FORI=1TO 10: ... : NEXT 

lautet in Pascal 

FOR I :=1TO10DO ....; 

Und die Applesoft-Abwärtszählschleife, z.B. 
FOR I = 10 TO 1 STEP -1: ...: NEXT| 

lautet in Pascal 

FOR I := 10 DOWNTO 1 DO ...; 

In Applesoft ist der FOR-NEXT-Verbund deutli- 
cher erkennbar als in Pascal, weshalb sich der 
Applesoft-Programmierer bei z.B. 

FOR | := 1 T0O5 DO 

WRITELN (Il); WRITELN (I+1); 

mit Recht fragen wird, wieviele Male hier | und 
I+1 ausgegeben werden. Der Schlüssel zum 
Verständnis liegt wiederum in der Verbundan- 


Peeker 12/85 





weisung: Wenn die FOR-Schleife nur einen ein- 
zigen Befehl „tun“ (DO) soll, dann folgt unmit- 
telbar nach DO der Befehl. Wenn hingegen 
mehrere Befehle ausgeführt werden sollen, so 
ist die BEGIN-END-Verbundanweisung erfor- 
derlich. Beispiele: 


FOR I:=1T0O3DO 

WRITELN (’A’); 

WRITELN ('B’); 

gibt dreimal „A“ und nur einmal .B aus. 


FORI:=1T0O3DO 

BEGIN 

WRITELN (’A’); 

WRITELN ('B’) 

END; 

gibt dreimal „A“ und dreimal „B“ aus. 


Im Gegensatz zu Applesoft darf in Pascal die 
Laufvariable (hier |) nie eine Real-Variable sein. 
Außerdem gibt es kein NEXT, keinen STEP und 
keine von +/-1 abweichende Schrittweite. 
FOR-Schleifen mit Real-Variablen und/oder (In- 
teger-)Schrittweiten ungleich +/-1 muß man 
mit WHILE- oder REPEAT-Schleifen simulieren. 
Weitere Sonderfälle: 


FOR |:=1TO10DO; 

ist eine Leerschleife (nacktes „;“) und ent- 
spricht der Applesoft-Befehlsfolge 

FOR | = 1 TO 10: NEXT | 


FORI:=1TO3DO:° 

FOR J:=1T05DO 

WRITELN (I, ’’, J); 

entspricht der Applesoft-Befehlsfolge 
FORI=1TO3: 


FORJ=1T05: 
PRINT I; “ “; J: 
NEXT J, | 


FOR CV :='A'TO’Z' DO 

WRITE (CV); 

ist in Pascal möglich und gibt hier die Buchsta- 
ben von A bis Z in einer Zeile aus. Allgemein 
formuliert läßt die Pascal-FOR-Schleife als Lauf- 
variablen sog. skalare Variablen zu. Dies sind 
u.a. Integer- und Char-Variablen. 


FOR | := 11 TO 10 DO 

WRITELN (I); 

bewirkt gar nichts, denn im Gegensatz zu Ap- 
plesoft wird eine FOR-Schleife übersprungen, 
wenn der Anfangswert den Endwert übersteigt. 


WHILE-DO 


Diese Schleife heißt in Worten „Solange die 


WHILE-Bedingung noch erfüllt ist, führe die 
. DO-BEGIN-END-Befehle aus“. Beispiel: 


A := 1.0; 

WHILE A < 10.5 DO 

BEGIN 

WRITELN (A); 

A:=A+05 

END; 

(Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus.) 


Zwischen WHILE und DO steht wie zwischen IF 
und THEN ein logischer Ausdruck. Da sich die- 
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ser logische Ausdruck zur Vermeidung einer 
Endlos-Schleife ändern sollte (1 Befehl) und da 
die WHILE-Schleife auch noch etwas Sinnvolles 
tun sollte (noch 1 Befehl), folgen auf DO minde- 
stens 2 Befehle, so daß eine WHILE-Schleife 
praktisch immer als BEGIN-END-Verbundan- 
weisung konstruiert wird. 

Man beachte, daß die WHILE-Schleife über- 
sprungen, d.h. kein einziges Mal durchlaufen 
wird, wenn die Bedingung bereits beim ersten 
Durchlauf nicht erfüllt ist, z.B. 

l:=2; 

WHILE | = 1 DO... 

wird übersprungen. 


REPEAT-UNTIL 

Diese Schleife heißt in Worten „Führe die RE- 
PEAT-Befehle solange aus, bis die UNTIL-Be- 
dingung nicht mehr erfüllt ist“. Beispiel: 


A:= 1.0; 

REPEAT 

WRITELN (A); 

A:=A+05 

UNTIL A >= 10,5; 

(Dieses Demo gibt die Zahlen 1.0, 1.5...10.0 
aus.) 


Der logische Ausdruck steht hier am Ende, d.h. 
nach UNTIL, so daß die REPEAT-Schleife im 
Gegensatz zu den FOR- und WHILE-Schleifen 
mindestens einmal durchlaufen wird. Wie das 
Demo zeigt, läßt sich eine WHILE-Schleife 
durch eine REPEAT-Schleife ausdrücken und 
umgekehrt. Im Gegensatz zur WHILE-Schleife 
ist bei der REPEAT-Schleife niemals eine (äu- 
Bere) BEGIN-END-Verbundanweisung erfor- 
derlich, weil REPEAT...UNTIL selbst bereits ei- 
ne (spezielle) Verbundanweisung darstellt. Wie 
vor dem END eines BEGIN-END-Verbundes 
muß auch vor dem UNTIL eines REPEAT-UN- 
TIL-Verbundes kein „;“ stehen; es ist aber hier 
wie dort als Leeranweisung zulässig. 


Exkurs: Das Semikolon, 

oder wie man zum Puristen wird 

Die Semikolon-Regel für „vor und nach END“ 
ist für Anfänger und Fortgeschrittene gleicher- 
maßen verwirrend. Allgemein gilt: 


‚1. Voreinem „END“ sollte nie (für Puristen: darf 


nie) ein „;“ stehen. 

2. Nach einem „END“ muß meist ein Semiko- 
Ion stehen. Ausnahmen: „END.“ am Program- 
mende, „END“ vor „ELSE" u.a. 

3. Was passiert jedoch, wenn zwei „ENDs“ 
aufeinanderstoßen? Beispiel: 

PROGRAM FINALE; 


VAR I: INTEGER; 
BEGIN 

FOR I := 1 TO 10 DO 
BEGIN 

WRITELN (I + |); 
WRITELN (I x |) {hier!} 
END {hier!} 

END. 


Die 3. Regel lautet dann: Vor einem „END“ 
steht kein Semikolon, wenn vor einem „END“ 
ein „END“ steht. Ferner gilt der „Spezialfall“: 
Nach einem „END“ steht kein Semikolon, wenn 
davor und danach das gleiche steht, wie das, 
was dazwischen steht. Gemeint ist das mittlere 
von drei „ENDs“... 


pascal 4 


Wenn Ihnen das alles zu „wirr“ ist, dann setzen 
Sie das Semikolon „aus Trotz“ und trösten Sie 
sich mit der Erkenntnis, daß selbst der „Pascal- 
Papst“ Niklaus Wirth in seinem „Pascal User 
Manual und Report“, 2. Aufl. 1978, S. 44, 54 
und 123 jeweils vor dem „END.“ ein Semikolon 
zuviel gesetzt hat. Auch in der Schweiz gibt es 
noch Willensfreiheit! 


8. String-Verarbeitung 


Einzelzeichen 


PRED und SUCC: Die von Integer-Zahlen be- 
reits bekannten Vorgänger- und Nachfolger- 
Funktionen gelten auch für den ERBE -Typ, z.B. 
WRITELN (PRED (’Z’)); 

ergibt „Y“. 

WRITELN (SUCC (’Y’)); 

ergibt „Z“. 

ORD und CHR: ORD ermittelt die „Ordnungs- 
zahl“ eines ASCII-Zeichens, während CHR das 
ASCIl-Zeichen zu einer vorgegebenen „Ord- 
nungszahl“ liefert, z.B. 

WRITELN (ORD (’A’)); 

ergibt die Integer-Zahl 65. 

WRITELN (CHR (65)); 

ergibt das Zeichen „A“. 


Gesamtstring 


LENGTH ermittelt die Länge eines Strings, z.B. 
WRITELN (LENGTH (’Peeker’)); 

ergibt die Integer-Zahl 6. 
CONCAT in der Form CONCAT (S1, S2, ...) 
dient der Verschmelzung von zwei oder mehre- 
ren Strings, z.B. 

S := CONCAT (’PAS’, ’'CAL’); 

WRITELN (S); 

ergibt „PASCAL“. 

In Turbo-Pascal ist auch die Applesoft-Form 

S := 'PAS’ + 'CAL’ 

zulässig („+ “-Zeichen). 


Teilstring 


Eine String-Variable wird, wie wir bereits erfah- 
ren haben, mit einer Längenangabe in eckigen 
Klammern definiert, z.B. 

VAR S: STRING[100]; 

Die einzelnen Zeichen eines Strings sind wie in 
Applesoft von 1 bis LENGTH durchnumeriert 
und haben damit eine Position, z.B. 

S := 'Peeker’; {123456} 

POS in der Form POS (T, G) ermittelt die Posi- 
tion P des Teilstrings T im Gesamtstring G, z.B. 
WRITELN (POS (’CAL’, "PASCAL’)); 

ergibt die Integer-Zahl 4, weil „C“ das 4. Zei- 
chen von „PASCAL“ ist. Wird der Teilstring 
nicht gefunden, so liefert POS 0. 

COPY in der Form COPY (G, P, A) ergibt den 
Teilstring T als Zeichenanzahl A ab Position P im 
Gesamtstring G, z.B. 

T:= COPY (’Peeker’, 5, 2); 

WRITELN (T); 

ergibt „er“, weil dies die 2 Zeichen ab dem 5. 
Zeichen von „Peeker“ sind. 

S[P] := C ersetzt das Zeichen in der Position P 
des Strings S durch das Einzelzeichen C vom 
Typ Char, z.B. 

S := 'lle’; 

S[3] := 'c’; 

WRITELN (S); 

ergibt „Ic“. 
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Die Umkehrung C := S[P] ist ebenfalls möglich 
(Einzelzeichen-COPY-Befehl). 

FILLCHAR in der Form FILLCHAR (G[P], A, C) 
ersetzt im Gesamtstring G ab Position P die 
Zeichenanzahl A durch das Char-Zeichen C 
(Beispiel s. Listing). 


INSERT und DELETE: Dies sind keine Funk- 
tionen, sondern eingebaute Prozeduren, so daß 
keine Wertzuweisung in der Form S := ... erfol- 
gen darf. 

INSERT (T, G, P) fügt den Teilstring T in den 
Gesamtstring G ab Position P ein. DELETE (G, 
P, A) entfernt aus dem Gesamtstring G die 
Zeichenanzahl A ab der Position P. Beispiele: 
Te PP.; 

G:='ALE; 

INSERT (T, G, 2); 

WRITELN (G); 

ergibt „APPLE“. 

DELETE (G, 2, 4); 

WRITELN (G); 

ergibt „A“. 

Abschließend sei bemerkt, daß die String-Ope- 
rationen nur teilweise gegen illegale Parameter 
abgesichert sind, so daß man entsprechende 
Vorsicht walten lassen sollte. 


IV. Pascal-Bücher 


Aus der riesigen Fülle der Pascal-Literatur grei- 


fen wir einige wichtige Titel heraus. 


1. Standard-Pascal 


Pascal User Manual and Report 

von Kathleen Jensen und Niklaus Wirth 

2. Aufl. 1978, 167 S., Manuskriptbuch, kart. 
Springer-Verlag, Heidelberg 

Obwohl denkbar primitiv in der herstellerischen 
Ausstattung, ist dieser Titel ein „Muß“ für all 
diejenigen, die sich über die genaue Syntax von 
Standard-Pascal informieren wollen. Der erste 
Teil enthält in der Art eines anspruchsvollen und 
mehr für Informatik-Studenten gedachten Tuto- 
rials einen Überblick über Pascal mit zahlrei- 
chen Programmbeispielen, während der zweite 
Teil eine abstrakte, stark formalistische Be- 
schreibung der Sprache und ihrer Elemente 
bietet. Für Anfänger nicht geeignet. 


Algorithmen und Datenstrukturen 

von Niklaus Wirth 

3. Aufl. 1983, 320 S., kart. 

Teubner-Verlag, Stuttgart 

Eigentlich handelt es sich bei diesem Titel um 
ein Informatik-Lehrbuch. Da jedoch alle Pro- 
grammbeispiele in Pascal geschrieben sind, 
kann es auch als Pascal-Lektüre für fortge- 
schrittene Programmierer mit Informatik-Back- 
ground benutzt werden. Für Anfänger nicht ge- 
eignet. 


Pascal: Einführung - Programmentwicklung 
— Strukturen | 

von Jürgen Plate und Paul Wittstock 

1982, 387 S., geb. 

Franzis-Verlag, München 
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Dieses Buch stellt eine umfangreiche Einfüh- 
rung in Standard-Pascal dar und eignet sich für 
diejenigen Apple-Besitzer, die zusätzlich auf ei- 
nem Großrechner programmieren wollen oder 
müssen. Für reine Apple-Programmierer wäre 
es dagegen eher verwirrend, weil man bei zu 
vielen Befehlen umdenken müßte. Insgesamt 
ein gutes und ansprechendes Buch, wenn- 
gleich nicht immer präzis genug definiert wird. 
Beispiel: „Als Seiteneffekt werden Zuweisun- 
gen an globale Variable bezeichnet“ (S. 129). In 
dem Buch von Gruber, S. 230, s.u. wird besser 
definiert: „Man spricht von Seiteneffekt, wenn 
einer globalen Variablen in einem untergeord- 
neten Block ein Wert zugewiesen wird.“ 


2. UCSD-Apple-Pascal 


Um es vorweg zu sagen: Es gibt zwar viele 
Bücher über USCD-Pascal und zahlreiche über 
Apple-UCSD-Pascal, aber leider kein einziges 
Buch, das Apple-Pascal systematisch bis in die 
letzten Details behandelt. Die meisten Titel ge- 
hen über die Anfangsgründe nicht hinaus. 


Apple Pascal 

1. Operating System Reference Manual, 1980, 
298 S., spiralgeb., mit 16seitigem Addendum, 
geh. 

2. Language Reference Manual, 1980, 208 S., 
spiralgeb., mit 16seitigem Addendum, geh. 

3. 1.2 Update Manual, 1983, 99 S., spiralgeb. 
Apple, München 

Deutsche Übersetzung bei Tewi, München 
Dies sind die offiziellen Handbücher, die beim 
Kauf von Apple-Pascal mitgeliefert werden. Das 
Operating-Manual enthält eine gründliche und 
gut verständliche Übersicht über das Betriebs- 
system (Filer, Editor, Compiler, Assembler, Lin- 
ker, Utility Programs u.a.). Dagegen ist das 
Language-Manual ein Stückwerk, weil es nur 
auf diejenigen Besonderheiten eingeht, in de- 
nen sich Apple-UCSD-Pascal von „Standard- 
UCSD-Pascal“ unterscheidet. Wie wir jedoch 
gesehen haben, sind viele Dinge nicht standar- 
disiert, so daß man sich in der berüchtigten 
Versuch-und-Irrttum-Methode vortasten muß. 
Nachteilig ist ferner die nicht-integrierte Darstel- 
lung durch Addenda und Supplement. Eigent- 


lich ist das Manual in drei Auflagen erschienen. 


Anstatt daß man, wie dies bei Buchverlagen 
üblich ist, die Änderungen in die verschiedenen 
Kapitel der jeweiligen Neuauflage einarbeitete, 
schuf man zunächst die Addenda zu den Manu- 
als und später das Supplement zu den Adden- 
da, also quasi den Appendix zum Appendix. 
Auch der Tewi-Verlag hat die Addenda und das 
Supplement nicht integriert. Trotz alledem sind 
diese Handbücher unverzichtbar. 


Apple Il Pascal 

von Arthur Luehrmann und Herbert Peckham 
1982, ca. 450 S. (kapitelweise paginiert), kart. 
Tewi-Verlag, München 

Dieses Buch wird zusätzlich kostenlos mitgelie- 
fert, wenn man das Apple-Pascal-Betriebssy- 
stem erwirbt, kann aber auch separat gekauft 
werden. Meines Erachtens ist diese Einführung 
viel zu weitschweifig und aufgebläht. Jedes der 
Mini-Programme — meist 5-10-Zeiler — wird sei- 
tenlang erläutert. Wem diese Darstellungform 


zusagt, möge zu diesem Buch greifen. Viele der 
spezielleren Befehle wie LABEL, GOTO, FILL- 
CHAR, UNITREAD, BLOCKREAD, WSTRING 
usw. werden jedoch nicht behandelt. Ferner 
wurde das Library-Konzept (Units, Assembler 
usw.) ausgespart. Für Anfänger geeignet. 


UCSD Pascal 1 

von Anton Gruber und Silvia Gutschmidt 

1981, 294 S., kart. 

Interface-Verlag, Haar | 

Dieses Buch, dessen Programme noch auf dem 
ITT geschrieben wurden, ist eine auffallend gut 
gegliederte, zügig von den leichteren zu den 
schwierigeren Befehlen voranschreitende Dar- 
stellung von Apple-UCSD-Pascal mit präzisen 
Definitionen. Manche Anfänger werden das 
Buch jedoch wegen der etwas spartanischen 
Beispielprogramme für zu formalistisch halten, 
denn die Darstellungsform ist dem obigen Titel 
von Luehrmann/Peckham diametral entgegen- 
gesetzt. Leider ist nur der erste Band erschie- 
nen, so daß beispielsweise die HGR-Befehle 
oder 6502-Assembler nicht behandelt werden. 


Grundkurs in Pascal 

von Karl-Herrmann Rollke 

Band 1, 4. Aufl. 1985, 221 S., kart. 

Band 2, 1. Aufl. 1985, 217 S., kart. 

Obwohl es der Titel nicht verrät, wird in diesem 
zweibändigen Lehrbuch nur Apple-UCSD-Pas- 
cal behandelt. Von allen mir bekannten Pascal- 
Büchern ist dieser Grundkurs mit Abstand die 
didaktisch am besten gelungene Einführung in 
Apple-Pascal. Das Werk ist primär für den 
Schulunterricht an Gymnasien gedacht, eignet 
sich jedoch auch vorzüglich zum Selbststu- 
dium. Der Autor hat sich im übrigen nicht ge- 
scheut, im zweiten Band auch auf die 6502- 
Programmierung einzugehen, obwohl die Pro- 
grammbeispiele hier trivialer Natur sind. Erwäh- 
nenswert ist auch die vorbildliche typographi- 
sche Gestaltung, was angesichts der vielen auf 
die Schnelle von mehr schlechten als rechten 
Manuskripten abphotographierten „Bücher“ 
von Verlagen wie Data-Becker, Vieweg, Luther, 
Teubner u.a. heute leider keine Selbstverständ- 
lichkeit mehr ist. Solche Bücher darf man teil- 
weise nicht einmal postalisch als Büchersen- 
dung verschicken; dies sagt wohl alles. Pro- 
grammlistings in Büchern wird man wohl immer 
in Matrix- oder Typenraddruckerform akzeptie- 
ren müssen, denn nur beim Peeker sind wir 
infolge der Spezialisierung auf einen Gerätetyp 
in der technischen Lage, Listings normal im 
Lichtsatz zu produzieren. Ferner wird man bei 
wissenschaftlichen Monographien, die nur in 
kleiner Auflage gedruckt werden, Manuskript- 
bücher auch in Zukunft in Kauf nehmen müs- 
sen. Doch wenn ein Lehrbuch wie etwa der 
Grundkurs von Kaier/Rudolfs (s.u.) aus 
„schreibmaschinentechnischen“ Gründen auf 
kursive und halbfette Hervorhebungen verzich- 
tet und eckige Klammern und sonstige Sonder- 
zeichen „von Hand“ vermerkt, dann ist wohl die 
Grenze des didaktisch-pädagogisch Zumutba- 
ren erreicht. Man lege einmal das Rollke- und 
das Kaier-Buch nebeneinander. Bei Rollike 
halbfette und kursive Merksätze und Margina- 
lien und saubere technische Zeichnungen, bei 
Kaier schwer lesbare Sperrschrift und „Frei- 
handzeichnungen“. 
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Um den uns überaus zusagenden Grundkurs in 
späteren Auflagen noch besser zu machen, sei 
auf einige Fehler aufmerksam gemacht: 

Band 1, S. 47: PWROFTEN hat nur Integer-Zahl 
als Argument (dto. S. 204). 

S. 57: Ersatzsymbole „(. .)“ gelten nicht für 
Apple-Pascal. 

S. 71: „12.“ oder „15.“ sind keine gültigen 
Real-Zahlen. 

S. 112: „Ausdruck“ für Selektor bei CASE- 
Definition nicht ganz korrekt. 

S. 178: „A<=x<=E", also x statt. 

Band 2, S. 10: VAR I statt VAR 1. 

S. 22: Produkt.Name := 'Buecher’ funktioniert. 
S. 26: „(TRUE: Art: Strahlung)“ ohne Klammer 
vor TRUE. 

S. 30: „SET OF INTEGER“ falsch. 

S. 184: „READ.../“ und „WRITE.../“ falsch 


All About Pascal 

Überwiegend Reprints von alten „Call- 
A.P.P.L.E."-Aufsätzen 

1982, 183 S., kart. 

Dieses Buch enthält viele nützliche Anregungen 
für fortgeschrittene Pascal- und besonders für 
Assembler-Programmierer mit zahlreichen Utili- 
ties und Interna (Systemadressen usw.), die 
sich allerdings noch auf Apple-Pascal 1.1 bezie- 
hen. Der Reader ist leider auf braunem Papier 
gedruckt und daher schlecht lesbar. 


3. Turbo-Pascal 


Zu Turbo-Pascal gibt es bislang keine Bücher, 
die auf die Besonderheiten unter Apple-CP/M 
eingehen, geschweige denn die apple-spezifi- 
schen Hardware-Gegebenheiten wie HGR-Gra- 
fik usw. in die Darstellung mit einbeziehen. 


Turbo Pascal Handbuch 3.0 

1985, 374 S., kart. 

Heimsoeth, München 

Dies ist das offzielle Manual, das in Verbindung 
mit der Systemdiskette geliefert wird. Das Buch 
ist recht formalistisch aufgebaut und damit für 
Anfänger nicht geeignet, doch ist es zum Nach- 


schlagen unverzichtbar. Ab S. 159 werden die’ 


IBM-PC-Extras behandelt, und ab S. 259 wird 
auf die CP/M-80-Besonderheiten (apple-un- 
spezifisch) eingegangen. Leider kann man sich 
nicht des Eindrucks erwehren, daß der Überset- 
zer von der Materie offenbar keine Ahnung hat- 
te. So wird z.B. auf S. 311 von den „nach 
abnehmender Wichtigkeit“ gruppierten Opera- 
toren gesprochen. „x“ ist jedoch nicht wichti- 
ger als „+“, sondern hat bei der Auswertung 
von Formelausdrücken Vorrang vor „+“. Als 
Pascal-Kenner kann man sich in diesen und 
ähnlichen Fällen zusammenreimen, was ge- 
meint ist, als Pascal-Neuling jedoch leider nicht. 


Turbo Tutor 

1985, ca. 200 S. (kapitelweise paginiert), kart. 
Heimsoeth, München 

Dies ist das Tutorial zu dem obigen Handbuch. 
Leider enthält dieses Buch, das offenbar ein 
„Schnellschuß“ ist, erschreckend viele Tipp- 
fehler. Einer meiner Freude, der sich die Mühe 
machte, etliche der gelisteten Programme abzu- 
tippen, mußte leider feststellen, das sie wegen 
der Druckfehler teilweise nicht lauffähig sind. 
Außerdem scheint der Übersetzer beim 
Deutschunterricht in der Schule gefehlt zu ha- 
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ben. Es empfiehlt sich daher, auf eine hinsicht- 
lich der Orthographie und Interpunktion verbes- 
serte Neuauflage zu warten, zumal das Buch 
auch sachliche Fehler aufweist, z. B. „Klingel: 


Char = Chr (7)“ funktioniert nicht (s. 18-22). 


Turbo Pascal-Wegweiser Grundkurs 

von Ekkehard Kaier und Edwin Rudolfs 

1985, 262 S., Manuskriptbuch, kart. 
Vieweg-Verlag, Braunschweig | 

Dieser erste Band — nach dem Grundkurs wird 
noch ein Aufbaukurs folgen - stellt eine gründli- 
che und gut aufbereitete, jedoch durch die 
Schreibmaschinentypographie didaktisch ent- 
wertete Einführung in Turbo-Pascal dar. Die 
Programmbeispiele sind überwiegend aus dem 
kaufmännischen Schulunterricht entnommen, 
was jedoch den Nutzen des Buches nicht 
schmälert. Wenn ein Peeker-Leser noch das 
Heft 1/1984 besitzt, so möge er einmal den 
Aufsatz „Turbo-Pascal — Schritt für Schritt“ von 
Dr. Ekkehard Kaier mit dem „Turbo Pascal- 
Wegweiser“, S. 43 ff. vergleichen („Programm- 
erstellung in 11 Schritten“). Er wird dann fest- 
stellen, daß aus dem Peeker ohne Quellenan- 
gabe „entlehnt“ wurde. Plagiarius te salutat... 


V. Pascal-Wortregister 


Die nachfolgende Liste faßt die reservierten 
Wörter und vordefinierten Bezeichner von 
UCSD- und Turbo-Pascal in einem Gesamtal- 
phabet zusammen. Außerdem sind die Be- 
zeichner der normalen UCSD-SYSTEM.LIBRA- 
RY berücksichtigt worden; auf die Namen von 
Variablen und Konstanten, z.B. REVERSE, wur- 
de dabei allerdings verzichtet. Die kleinge- 
schriebenen Wörter sind in diesem Kurs noch 
nicht behandelt worden. Manche Befehle kön- 
nen Funktionen und Prozeduren sein, z.B. 
BLOCKREAD in Turbo-Pascal. In solchen und 
ähnlichen Fällen mußte der Kürze wegen eine 
willkürliche Kategorisier&ung vorgenommen 
werden. 

Wenn der Vermerk „UCSD“ oder „Turbo“ fehlt, 
so handelt es sich um gemeinsame Befehlswör- 
ter beider Dialekte. Man beachte jedoch, daß 
„gleiche Befehlswörter = gleiche Befehle“ 
nicht immer gilt (s. READ usw.), so daß man 
dem Register natürlich keine Feinheiten ent- 
nehmen kann. 

Der Anfänger möge sich nicht durch die riesige 
Befehlsliste abschrecken lassen, denn zahlrei- 
che Befehle werden praktisch kaum benötigt 
(z.B. AUX) oder funktionieren nicht (z.B. INS- 
LINE bei normaler 80-Zeichenkarte) oder sind 
nicht in den Handbüchern erwähnt, z.B. 
CBREAK für Ctrl-C-Test. 


UCSD = nur in UCSD-Apple-Pascal 1.1 vor- 
handen (1.2 gesondert vermerkt) 

Turbo = nur in CP/M-Turbo-Pascal 3.0 vor- 
handen 

Const = Konstante 

File = Datei (einschließlich der Periperiegeräte) 
Function = Funktion 

Procedure = Prozedur 

Reserved = reserviertes Wort 

Type = Datentyp 

UCSD-Lib = UCSD-Library 


pascal 





Wörter 

ABS (Function) 

absolute (Reserved, Turbo) 
addr (Function, Turbo) 
AND (Reserved) 

append (Procedure, Turbo) 
applestuff (UCSD-Lib-Unit) 
ARCTAN (Function, Turbo) 
array (Reserved) 

assign (Procedure, Turbo) 
ATAN (Function, UCSD-Lib) 
aux (File, Turbo) 

auxinptr (Function, Turbo) 
auxoutptr (Function, Turbo) 
bdos (Procedure, Turbo) 
bdoshl (Function, Turbo) 
BEGIN (Reserved) 

bios (Procedure, Turbo) 
bioshl (Function, Turbo) 
blockread (Function) 
blockwrite (Function) 
boolean (Type) 

buflen (Function, Turbo) 
button (Function, UCSD-Lib) 
byte (Type, Turbo) 

CASE (Reserved) 

cbreak (Function, Turbo) 
chain (Procedure, Turbo) 
chainstuff (UCSD-Lib-Unit) 
char (Type) 

chartype (Procedure, UCSD-Lib) 
CHR (Function) 

close (Procedure) 

clreol (Procedure, Turbo) 
CLRSCR (Procedure, Turbo) 
code (Reserved, UCSD) 
con (File, Turbo) 

CONCAT (Function) 
coninptr (Function, Turbo) 
conoutptr (Function, Turbo) 
console: (File, UCSD) 
CONST (Reserved) 
constptr (Function, Turbo) 
COPY (Function) 

COS (Function, UCSD-Lib + Turbo) 
crtexit (Procedure, Turbo) 
crtinit (Procedure, Turbo) 
data (Reserved, UCSD) 
delay (Procedure, Turbo) 
DELETE (Procedure) 
delline (Procedure, Turbo) 
dispose (Procedure, Turbo) 
DIV (Reserved) 

DO (Reserved) 


' DOWNTO (Reserved) 


drawbock (Procedure, UCSD-Lib) 


ELSE (Reserved) 


END (Reserved) 

eof (Function) 

eoln (Function) 

erase (Procedure, Turbo) 
errorptr (Function, Turbo) 
execute (Procedure, Turbo) 

exit (Procedure) 

EXP (Function, UCSD-Lib + Turbo) 
external (Reserved) 

false (Const) 

file (Reserved) 

filepos (Function, Turbo) 

filesize (Function, Turbo) 
FILLCHAR (Procedure) 
fillscreen (Procedure, UCSD-Lib) 
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flush (Procedure, Turbo) 

FOR (Reserved) 

forward (Reserved) 

FRAC (Function, Turbo) 
freemem (Procedure, Turbo) 
function (Reserved) 

get (Procedure, UCSD) 

getcval (Procedure, UCSD-Lib) 
getmem (Procedure, Turbo) 
GOTO (Reserved) 

GOTOXY (Procedure) 
grafmode (Procedure, UCSD-Lib) 
halt (Procedure) 

heapptr (Type, Turbo) 

hi (Function, Turbo) 

highvideo (Procedure, Turbo) 
idsearch (Procedure, UCSD) 

IF (Reserved) 

implementation (Reserved, UCSD) 
in (Reserved) | 
initturtle (Procedure, UCSD-Lib) 
inline (Reserved, Turbo) 
input (File) 

INSERT (Procedure) 

insline (Procedure, Turbo) 
INT (Function, Turbo) 
INTEGER (Type) 

interactive (Type) 

interface (Reserved, UCSD) 
intrinsic (Reserved, UCSD) 
ioresult (Function) 

KBD (File, Turbo) 
KEYBOARD (File, UCSD) 
keypress (Function, UCSD-Lib) 
keypressed (Function, Turbo) 
LABEL (Reserved) 

LENGTH (Function) 

LN (Function, UCSD-Lib + Turbo) 
lo (Function, Turbo) 

LOG (Function, UCSD-Lib) 
LOWVIDEO (Procedure, Turbo) 
Ist (File, Turbo) | 
Istoutptr (Function, Turbo) 

mark (Procedure) 

maxavail (Function, Turbo) 
MAXINT (Constant) 

mem (Type, Turbo) 

MEMAVAIL (Function) 

MOD (Reserved) 

move (Procedure, UCSD-Lib) 
move (Procedure, Turbo) 
moveleft (Procedure, UCSD) 
moveright (Procedure, UCSD) 
moveto (Procedure, UCSD-Lib) 
new (Procedure) 

NORMVIDEO (Procedure, Turbo) 
nil (Const) 

NOT (Reserved) 

note (Procedure, UCSD-Lib) 
odd (Function) 

OF (Reserved) 

openold (Procedure, UCSD) 
opennew (Procedure, UCSD) 
OR (Reserved) 

ORD (Function) 

output (File) 

overlay (Reserved, Turbo) 
ovrdrive (Procedure, Turbo) 
packed (Reserved, UCSD) 
paddie (Function, UCSD-Lib) 
PAGE (Procedure, UCSD) 
paramcount (Function, Turbo) 
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paramstr (Function, Turbo) 
pencolor (Procedure, UCSD-Lib) 
PI (Const, Turbo) 

port (File, Turbo) 

POS (Function) 


- PRED (Function) 


printer: (File, UCSD) 
PROCEDURE (Reserved) 
PROGRAM (Reserved) 

ptr (Function, Turbo) 

put (Procedure, UCSD) 
PWROFTEN (Function, UCSD) 
RANDOM (Function, UCSD-Lib + Turbo) 
randomize (Procedure, UCSD-Lib + Turbo) 
READ (Procedure) 

READLN (Procedure) 

REAL (Type) 

record (Reserved) 

recurptr (Type, Turbo) 

release (Procedure) 

remin: (File, UCSD) 

remout: (File, UCSD) 

remstatus (Function, UCSD, nur 1.2) 
rename (Procedure, Turbo) 
REPEAT (Reserved) 

reset (Procedure) 

rewrite (Procedure) 

ROUND (Function) 

scan (Function, UCSD) » 
screenbit (Function, UCSD-Lib) 
screencolor (Type, UCSD-Lib) 
seek (Procedure) 

seekeof (Function, Turbo) 
seekeoln (Function, Turbo) 
segment (Reserved, UCSD) 

set (Reserved) 

setchain (Procedure, UCSD-Lib) 
setcval (Procedure, UCSD-Lib). 
shl (Reserved, Turbo) 

shr (Reserved, Turbo) 

SIN (Function, UCSD-Lib + Turbo) 
sizeof (Function) 

SQR (Function) 

SORT (Function, UCSD-Lib + Turbo) 
stackptr (Type, Turbo) 

str (Function, UCSD-Long-Integer) 
str (Function; Turbo-Real/Integer) 
STRING (Type) 

SUCC (Function) 

swap (Function, Turbo) 

swapgpon (Procedure, UCSD-Lib, nur 1.2) 
swapon (Procedure, UCSD-Lib) 
swapoff (Procedure, UCSD-Lib) 
systerm: (File, UCSD) 

text (Type) 

textmode (Procedure, UCSD-Lib) 
THEN (Reserved) 

time (Procedure, UCSD) 

TO (Reserved) 

transcend (UCSD-Lib-Unit) 
treesearch (Function, UCSD) 

trm (File, Turbo) 

true (Const) 

TRUNGC (Function) 

ttlout (Procedure, UCSD-Lib) 

turn (Procedure, UCSD-Lib) 

turnto (Procedure, UCSD-Lib) 
turtleang (Function, UCSD-Lib) 
turtlegraphics (UCSD-Lib-Unit) 
turtlex (Function, UCSD-Lib) 
turtley (Function, UCSD-Lib) 

type (Reserved) 


unit (Reserved, UCSD) 
unitbusy (Function, UCSD) 
unitclear (Procedure, UCSD) 
unitread (Procedure, UCSD) 
unitstatus (Procedure, UCSD) 
unitwait (Procedure, UCSD) 
unitwrite (Procedure, UCSD) 
UNTIL (Reserved) 

upcase (Function, Turbo) 
USES (Reserved, UCSD) 

usr (File, Turbo) 

usrinptr (Function, Turbo) 
usroutptr (Function, Turbo) 
val (Procedure, Turbo) 

VAR (Reserved) 

viewport (Procedure, UCSD-Lib) 
wchar (Procedure, UCSD-Lib) 
WHILE (Reserved) 

with (Reserved) 

wstring (Procedure, UCSD-Lib) 
WRITE (Procedure) 

WRITELN (Procedure) 

xor (Reserved, Turbo) 


Hinweis zum Teil 2 


Der 2. Teil des Kompaktkurses wird 
sich mit den pascaltypischen Befeh- 
len, Datentypen und Strukturen be- 
fassen. 
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{KURS1} 

{Pascal fuer Applesoft-Programmierer 
von U. Stiehl/8.8.85 

PA = Pascal; AS = Applesoft 

Laenge TEXT: 36, CODE: -18 Blocks, 
Compilierungszeit: 139 Sek. 


1.8. Kopf/Konstanten/Variablen 
PROGRAM, CONST, VAR; 

INTEGER, REAL, CHAR, STRING; 
USES, TRANSCEND, APPLESTUFF} 


PROGRAM BEISPIELE; 


{Unit TRANSCEND fuer SIN, COS, EXP, 
ATAN, LN, LOG und SQRT; 
Unit APPLESTUFF fuer RANDOM} 


USES TRANSCEND, APPLESTUFF'; 


{Konstantendefinition 


: max. 8 Buchstaben/Ziffern 
Typzusatz entfaellt; 

: max. 2 Buchstaben/Ziffern 
Typzusatz % + $ erforderlich} 


=.199; {AS: IK% = 199} 
100.5; {AS: RK = 190.5} 
ups {AS: CK$ = "P") 

= 'Peeker'; {AS: SK$ = "Peeker'"} 


{Variablendefinition 


Integer: 

PA: Integer ca. +/-32767 

AS: ditto 
Real: 

PA: ca. +/-1.23456E-37 

AS: ca. .+/-1.23456789E-37 
Char: 

PA: ein EINZELNES Zeichen 
AS: nur normaler String 
String: 
PA: 1-255 Zeichen mit Laenge 
AS: 1-255 Zeichen ohne Laenge} 


VAR 


IV: INTEGER; {AS: IV} 
RV: REAL; {AS: RV} 
CV: CHAR; {AS: CV$ !} 
SV: STRING [255]; {AS: SV$} 


{Hilfsvariablen fuer Beispiele} 


IH: INTEGER; {AS: IH%} 
RH: {AS: RH} 
CH: ; {AS: CH$} 
SH: STRING [255]; {AS: SH$} 


R: CHAR; {Return R$} 
T: CHAR; {Taste T$} 


{2.8. Beispielprogramme 


PROCEDURE, BEGIN, END} 


{Die Befehlsfolge in PA: 
PROCEDURE NAME; 
BEGIN 
END; 

lautet in AS: 
1000 REM Beginn Subroutine 
1810 ... 
1098 RETURN. 

Aufruf erfolgt in PA mit: 
NAME; 

und in AS mit: 
GOSUB 1909} 


{2.1. Bildschirm-Ausgabe 


CHR(12) Home, CHR(13) Return; 
CHR(15) Inverse, CHR(14) Normal; 
WRITE, WRITELN; 

GOTOXY} 
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PROCEDURE BILDSCHIRMAUSGABE; 
BEGIN 


{AS: HOME 
PA: } 
WRITE (CHR(12)); 


{AS: PRINT 
PA: } 
WRITELN; 


{AS: PRINT CHR$(13); 
PA: } 
WRITE (CHR(13)); 


{AS: PRINT "Hans"; " Meier" 
PA: } 
WRITELN ('Hans', ' Meier'); 


{AS: PRINT "Hans"; R$; "Meier"; R$ 
PA: } 
WRITELN ('Hans', R, 'Meier', R); 


{AS: INVERSE: 


PRINT "Den Apostroph ' so"; R$: 


NORMAL 
PA: } 
WRITELN (CHR (15), 
'Den Apostroph '' so', 
CHR (14), R); 


WRITE ('WRITE ohne Return: '); 
{AS: PRINT 1;.: PRIBE tt 
PRINT 2:83: PRENTLY N, 
PRINT. "A®: 
- PRINT: PRINT 
PA: } 
WRITE (1); ARITM.1" 95 
WRITE (2.3); WRITE (' '); 
WRITE ('A'); 
WRITELN; WRITELN; 
{Returns hier nachgeholt} 


{AS: PRINT IKZ;" "; RK; ""; 
CK$; " "; SK$ 
PA: } 
WRITELN (IK, 7*, RK, 
e MIELE ar 


{AS: HTAB 39: VTAB 29: 
PRINT "Hier";:; 
HTAB 39: VTAB 19: 
PRINT "Daueber";: 
HTAB: 1: -VFAB- I; 
PRINT "Oben links";: 
HTAB 1: VTAB 29: 
PRINT "Zeile 29" 

PA:} 

GOTOXY (29, 19); 

WRITE ('Hier'); 

GOTOXY (29, 18); 

WRITE ('Darueber'); 

GOTOXY (9,9); 

WRITE ('Oben links'); 

GOTOXY (®, 19); 

WRITELN ('Zeile 29') 


END; 


{2.2. Formatierung 


WRITELN (AUSDRUCK:G:N)} 


PROCEDURE FORMATIERUNG; 
BEGIN 


WRITELN ('Pascaltypische, ', 
'rechtsbuendige Formatierung'); 

{"AUSDRUCK:G:N' fehlt in AS, 
'AUSDRUCK:G' durch SPC simulierbar} 


WRITELN (R, 'AUSDRUCK:G:N'); 


WRITELN (R, 'Fliesskommazahl mit ', 
'1® Gesamtstellen G und 1, 2, 3 ', 
'Nachkommastellen N', R); 


WRITELN ('/', 123.4567, ' -> 
'/', 123.4567:10:1, 
'/', 123.4567:10:2, 
'/', 123.4567:10:3, 


WRITELN (R, "AUSDRUCK:G', R); 


{AS: PRINT "Zehn"; SPC (19); "Spaces" 
PA:} 
WRITELN ('Zehn', '':19, 'Spaces'); 


WRITELN (R, 'Integerzahl mit ', 
'6, 7, 8 Gesamtstellen', R); 


LAS: PRINT MR a > 
"/"; SPC (6-LEN (STR$ (-1 
"/"; SPC (7-LEN (STR$ (-1 
"/"; SPC (8-LEN (STR$ (-1 
ur A 
PA: } 
RRITELN (V/7,, -1; >"8, 
TEL :G, 
LET, 
et en 9 
RR j 


WRITELN (R, 'String mit ', 
'1®, 15, 2® Gesamtstellen', R); 


{AS: PRINT "/"; Sk$; " —> "; 
"/"; SPC (1®-LEN (SK$)); SK$; 
"/", SPC (15-LEN (SK$)); SK$; 
"/", SPC (2®-LEN (SK$)); SK$ 
PA: } 


WRITELN. ('/'. SKK, ' —-!, 
er 
Te 
AT, SK:29, er 


END; 


{2.3. Wertzuweisungen 
Par TretsPpr Im! 
MAXINT} 


PROCEDURE WERTZUWEISUNG; 
BEGIN 


WRITELN ('''Literals''', R); 


{AS: RV 765.432: IV% = 333: 
cv$ = "zZ": sv$ = "abo": 
PRINT RV: PRINT IV%: 
PRINT CV$: PRINT SV$ 

PA:} 

RV:= 765.432; IV:= 765; 

cV:= '2'; SV:= 'abc'; 

WRITELN (RV); WRITELN (IV); 

WRITELN (CV); WRITELN (SV); 


WRITELN (R, 'Konstanten', R); 


{AS: RV = RK: IV% = IK?: 
CV$ = CK$: SV$ = SK$: 
PRINT RVM EU 
cv$; MALE ". sv$; RA; 
PA: } 
RV:= RK; IV:= IK; 
CV:= CK; SV:= SK; 
WRITELNIERV Et INS 
DT PEST eitre 


WRITELN (R, 'Systemkonstanten', 
5 27B MAXINT:t IR); 


{AS: IVX = 32767: PRINT IV%: 
IV% = -32767: PRINT IV% 

PA:} 

IV:= MAXINT; WRITELN (IV); 

IV:= -MAXINT; WRITELN (IV) 


END; 


{2.4. Tastatur-Eingabe 


READ, READLN, KEYBOARD} 


PROCEDURE TASTATUREINGABE; 
BEGIN 


WRITE (R, 'READ', R, 
'Mit Anzeige der Taste: '); 


{AS: PRINT "Char: '";: GET ’CV$: 
PRINT CV$;: 
PRINT R$; "Eingegeben: "; CV$ 
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PA: } 
WRITE ('Char: '); READ (CV); 
{Kein WRITE!} 
WRITELN (R, 'Eingegeben: ', CV); 


WRITE (R, 'READ (KEYBOARD, Taste)', 
R, 'Ohne Anzeige der Taste: '); 


{AS: PRINT "Char: ";: Get CV$: 
PRINT R$; "Eingegeben: "; CV$; 
WORSR- 15 ASC CVB}; 
PA: } 
WRITE ('Char: '); READ (KEYBOARD, CV); 
WRITELN (R, "Eingegeben: ', CV, 
', ORD ', ORD (CV)); {s.u. 2.8.} 


WRITE (R, '"READLN von Strings: ', R); 


{AS: INPUT "String: "; SV$: 
PRINT "Eingegeben: "; SV$ 
(REM Oder analog zu PA: 
PRINT "String: ";: 
INPUT ""; SV$) 
PA:} 
WRITE ('String: '); READLN (SV); 
WRITELN ('Eingegeben: ', SV); 


WRITELN 
(R, CHR (15), 'Keine Stringeingabe', 
R, 'bei Zahlen-READLN!!', CHR (14)); 


{AS: HTAB 19: VTAB 18: 
INPUT "1. Real: "; RV: 
HTAB 39: VTAB 18: 
INPUT "2. Integer: ";; IVE: 
PRINT: PRINT "Eingegeben "; 
"Real: ", RV; " ". 
"Integer: "; IV% 
PA} 
GOTOXY (9, 17); 
WRITE ('l. Real: '); READLN (RV); 
GOTOXY (29, 17); 
WRITE ('2. Integer: '); READLN (IV); 
WRITELN; WRITELN ('Eingegeben ', 
IRaB2s. REIHE 
'Integer: ', IV:6) 


END; 


{2.5. Integer-Mathematik 


— h * j 
DIV, MOD; 
ABS, SQR; 
PRED, SUCC; 
ROUND, TRUNC; 
RANDOM 
PWROFTEN} 


PROCEDURE INTEGERMATHE; 
BEGIN 


WRITELN ('+, -— und *', R); 


{AS: IVZ = 10 + 2: 
PRINT "1® + 28 = "; IV%: 
IV = 20 - 19: 
PRINT "28 - 18 = "; IV%: 
IV = 10 « 1: 
PRINT "1@ « 18 = "; IV%: 
PR} 
IV:= 10 + 29; 
WRITELN ('1® + 28 = ', IV:6); 
IV:= 20 - 19; 
WRITELN ('28 - 18 = ', IV:6); 
IV:= 19 « 1; 
WRITELN ('10 *« 18 = ', IV:6); 


WRITELN (R, "Quotient und Rest: '); 
{Kein Modulus-Befehl in AS!} 


{AS: PRINT IK%;: REM 190 
PRINT " geteilt durch ";: 
IHZ = 7: 
PRINT IH%;: 
PRINT " =.#7: 
IVZ = INT (IK% / IHR): 
PRINT IV%;: 
PRINT " Rest ";: 
REM MOD-Formel 
IVZ = INT ( (IK% / IH% 





—- INT (IK% / IH%)) 
* IH% + 9.05 ) 
* SGN (IK% / IH%): 
PRINT IV% 
PA: } 
WRITE (IK); {19@} 
WRITE (' geteilt durch '); 
IH:= 7; 
WRITE (IH); 
WRITE (' = '); 
IV:= IK DIV IH; 
WRITE (IV); 
WRITE (' Rest '); 
IV:= IK MOD IH; 
WRITELN (IV); 


WRITE (R, '"Absolutbetrag /-I/: '); 


{AS: IH% = -T: 
IV% = ABS (IH%): 
PRINT IH%; " -> "; IV% 
PA: } 
IH:= -7; 
IV:= ABS (IH); 
WRITELN (IH, ' -> ', IV); 


WRITE (R. "Qusarati T#-I:'); 
{Kein eigener Befehl in AS!} 


{AS: IH%:= 2P: 
IVZ:= IHZ « IH%: 
PRINT "Quadrat von "; IH%;: 
PRINT "7 ist"; Iv® 


PA: } 
IH:= 29; 
IV:= SQR (IH); 


WRITE ("Quadrat von 1 >EW); 
WRITELN (' ist ', IV); 


WRITE (R, 'Vorgaenger/Nachfolger: '); 
{In AS simulierbar} 


{AS: IH% = 29: 
PRINT IH%;: 
PRINS DR 
PRINT "Vorgaenger "; IH% - ];: 
PRINE #5 
PRINT "Nachfolger "; IH% + 1 


IH:= 2ß; 

WRITE (IH); 

WRITE (': '); 

WRITE ('Vorgaenger ', PRED (IH)); 
Er A A 

WRITELN ('Nachfolger ', SUCC (IH)); 


WRITE (R, "Runden: '); 
{In PA ROUND und TRUNC 
nur bis max. 32767. 
In AS INT bis ca. 8388698} 


{AS: RV = -666.666: 
IV% = INT (RV): 
PRINT "Real"; RV;; 
PRINT " auf Integer gerundet "; 
IV%; 
PA:} 
RV:= -666.666; 
IV:= ROUND (RV); 
WRITE ('Real ', RV); 
WRITE (' auf Integer gerundet ', 
IV); 


{TRUNC = Nachkommastellen abhacken 
nicht in AS implementiert} 

WRITELN (' und abgehackt ', 

TRUNC (RV)); 


WRITE (R, 'Zufallszahl: '); 


{AS: RV = RND (1): REM ® - 90.999999999 
PRINT RV;: REM Fließkommazahl! 
PRINT " Bereich 19-1ßß: ";: 

PRINT INT (18® * RND (1)) + 1 


Pa:} 
IV:= RANDOM; {ß - 32767} 
WRITE (IV); {Integerzahl!} 


WRITE (' Bereich 1®-1ß®: '); 
WRITELN (1® + RANDOM MOD (1ß®-1@+1)); 


WRITE (R, 'PWROFTEN: 1® 1 Integer: '); 


{AS: PRINT "19 13 ="; 
18 13 
PA:} 
WRITELN ('19 1 3=', 
PWROFTEN (3):6:2) 


END; 


{2.6. Fliesskomma-Mathematik 
+,-,# /; 

} (fehlt); 

ABS, SQR, SQRT;; 

SIN, COS, ATAN; 

TAN (fehlt); 

LOG, LN, EXP} 


PROCEDURE FLIESSKOMMAMATHE; 
BEGIN 


WRITELN ('+, -, #», /'", R); 


{AS: RV = 15.7: RH 
PRINT RV; + 
RV + RH: 
PRINT RV; 
RV - RH!: 
PRINT RV; 
RV x RH: 
PRINT RV; 
RV / RH 
PA:} | 
RV:= 15.7; RH:= 5.7777; 
WRITELN (RV, ' + ', RH, 
RV + RH:6:2); 
WRITELN (RV, ' -.', RH, 
RV - RH:6:2); 
WRITELN (RV, ' » _', RH, 
RV * RH:6:2); 
WRITELN (RV, ' / ', RH, 
RV / RH:6:2); 


WRITELN; 
WRITE ('XtY=!', 
'EXP (Y * LN (X)): '); 


{AS: RV = 3.9: RH = 5.9: 
PRINT RVS 7 ES 
RV t RH | 

PA: X hoch Y fehlt in PA} 


RV:= 3.8; RH:= 5:9; 
WRITELN (RV, r an.) a 
EXP (RH * LN (RV)):6:2); 


WRITELN (R, "Punkt vor Strich, ', 
'Klammer vor alles', R); 


{AS: PRINT "3 +4 5 13 
3+4 5 13: 
PRINT "(3 + 4) (5 13) 
(3 + 4) (5 13) 
PA: } 
WRITELN (' 3 5 15 = ', 
3 5 13); 
3 (5 13) = ',. 
3 (5 - 13)) 


WRITELN ('( 
( 


END; 


PROCEDURE FLIESSREST; 
{Aufsplittung} 


BEGIN 


WRITELN (R, 'Diverse Funktionen', R); 
{Beachte, dass 

— Befehlswoerter teils abweichen, 

— TAN in PA fehlt, 

— SQR und LOG in AS fehlen!} 


{AS: PRINT "Von Ausgangszahl ";: 

RV = 5.6789: 

PRINT RV; '" —> ": 

PRINT 

"ABS: RBS- INT}; 
Quad:"; RV * RV; 
SQR: "; SQR (RV); 
SIN: "; SIN (RV); R$; 
C8S:- "5 COS.{RV); 
ATN: "; ATN (RV); 
TAN: "; TAN (RV); 
EXP: "; EXP (RV); R$; 
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a A a Fe 
"Log: '"; LOG (RV) / LOG -(19) 
PA:} 
WRITE ('Von Ausgangszahl '); 
RV:= 5.6789; 
WRITELN (RV:7:4, ' -> '); 
WRITELN 
(483: 1, AB8 (RE): 
ı"SOR: .'..:SQR:. RV): 
'_SQRT:', SORT: (RV): 
"BEN: 1, SIN ERVN: 
r BO8: :,TDOS,, CRY]: 
' ATAN:', ATAN (RV): 
' 
' 
' 


” “ ” “ - 


SIAIÄIÄIÄA- 


DDVDUDDyDyDyUVDD 


SIN (RV)/ 
EXP (RV): 
LN (RV): 
LOG (RV): 


0 


. 
. 


. 
. 


AÄAÄNQ 


{2.7. Verzweigungen und Schleifen 


OR, AND, NOT; 
IF...THEN...ELSE...; 
FOR...TO/DOWNTO...DO...; 
WHILE...DO...; 

REPEAT.. .UNTIL...} 


PROCEDURE VERZWEIGUNGEN; 
BEGIN 


WRITELN ('IF-Vergleiche:', R); 
{Beachte: Im Geg. zu AS in PA: 
Erst 'AND, OR', dann '<, >, ='} 


{AS: IF 1 = 1 AND 1 <> 2 THEN 
PRINT "1 = 1 ja": 
PRINT Mut: 
REM Else fehlt in AS! 
IE 807.12 2 OR 2> 2) 
THEN PRINT "2 < 1 nein" 
Im "Be > man DHEN 
PRINT ng! e} rg 


PA: } 
IF (1 = 1) AND (1 <> 2) THEN 
BEGIN 
WRITE ('1=1 ja') 
WRITE (', ') 
END 
ELSE WRITE ('So?'); 
IF NOT ((2 < 1) OR (1 > 2)) THEN 
WRITE ('2 < 1 nein, ') {kein ';'!} 
ELSE WRITE ('Ach?'); 
IF ('B' > 'A') THEN 
WRITELN ( ng" > nam ) 
ELSE WRITELN ('Wie?'); 


WRITELN (R, 'FOR nur mit Integer-Step 1', 
R, 'Fuer Real-Step WHILE + REPEAT', R); 


{AS: FOR RH = 1 TO 5: 
PRINT: a U u 9 Re, 
RA 2 I, PIE: 
PRINT: 
FOR RH = 5 TO 1 STEP -1: 
PRINT: RN: Mur. #0: Bu UM mi: 
RH + RH; ". "se NEXT: 
PRINT 
PA} 
FOR IH:= 1 TO 5 DO 
BRLTE IM NEE Ten 
a Pe 
WRITELN; 
FOR IH:= 5 DOWNTO 1 DO 
BRITE TER; EEE It 
I I 9, 
WRITELN; 


{AS: FOR RH = 9.5 TO 5.9 STEP 9.5: 
PRINT RH; " ";: NEXT: PRINT 
PA: 2 Versionen statt FOR} 


WRITELN (R, 'Version mit WHILE', 
' prueft vorher', R); 

RH:= 9.5; 

WHILE RH < 5.5 DO 


BEGIN 

RATE TRN:5:2, "+7; 
RH:= RH + 9.5 

END; 

WRITELN; 
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WRITELN (R, 'Version mit REPEAT', 
' prueft nachher', R); 

RH:= 9.5; 
REPEAT 

WRITE (RH:5:2 
RH:= RH + 9.5 
UNTIL RH >= 5.5; 
WRITELN 


PERS Dr 


END; 


{2.8. String-Verarbeitung 
PRED, SUCC; 

ORD, CHR; 

LENGTH, CONCAT; 

String [x], FILLCHAR, POS; 
COPY; 

DELETE, INSERT 

Kein VAL und STR$ in PA!} 


PROCEDURE STRINGVERARBEITUNG; 
BEGIN 


WRITELN (' Cy:= PRED (Cx), ', 
ıöyie BUEGSTER)., 
'Cx:= CHR. {Ix),'", 
'Ix:=. ORD .(Cx):'); 


TAB: PRINT "Vor Bist 9; 
CHR$ (ASC ("B") - 1);: 
PRINT", naohB ist: "; 
CHRB.: CASE TPBU ER ie 
PRINT. "A860 Bi "sOA80: "Bit. 8 
PRINT ", CHR 65: "; CHR$ (65) 
PA:} 
WRITE ('Vor Bist ', 
PRED (’B')); 
WRITE (', nach B ist *, 
BUBEN A 
WRITE L'ASO Bit 2080 18T); 
WRITELN (', CHR 65: ', CHR (65)); 


WRITELN (' Ix:= LENGTH (Sx):'); 


{AS: SV$ = "Apple": PRINT SV$; " hat ";: 
IV% = LEN (SK$): PRINT "Len: "; IV% 
PA: } 
SV:= 'Apple'; WRITE (SV, ' hat '); 
IV:= LENGTH (SV); WRITELN ('Len: ', IV); 


WRITELN (' Sx:= CONCÄAT (51.::82...):°}: 
{AS: SV$ = SK$ + "-" + SK$ + "-" + SK$: 
PRINT SV$ 
PA: } 
SV:= CONCAT (SK, '-'", SK, '-'", SK): 
WRITELN (SV) 
END; 


PROCEDURE STRINGREST; 
{Aufsplittung} 


BEGIN 


{Nachfolgende Befehle nur noch 
umstaendlich in AS simulierbar} 


WRITELN (' Cx:=.Sx [POS], ', 
'Sx [POS]:=:Cx, ", 
'FILLCHAR (Sx [POS]. Ix, Cx):'); 


SV:= '*Peekerx'; SH:= '—#####4#-'; 
HRITE IV... ET 
FOR IH:= 2 TO 7 DO 
SH [IH]:= SV [IH]; 
WRITE ..{SH,.: ', *')5 
CH:= SV [1]; {also '«'} 
SH [1]:= CH; SH [8]:= CH; 
HRITE SV, 45 
FILLCHAR (S4’121,6;: 8%): 
WRITELN (SH); 


WRITELN (' Ix:= POS (von Sy, in Sx):'); 


:= 'Ich lese Peeker'; 
IH:= POS (SK, SV); 
WRITELN ('Sy 7 En SsK, un 
' ist in $x K mt SV, mn 
ee Wi :: au e. FE BR 
' Zeichen enthalten'); 
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WRITELN 
('Sy:=COPY (von Sx, ab POS, Ix):'); 


SV:= 'Lerne zu peeken ohne zu quieken'; 

SH:= COPY (SV, 19, 6); 

WRITELN ('"',SH, '" entnommen aus: "", 
SV, a S 


WRITELN (' DELETE (Sx, ab POS, Ix), ', 
FINSERT.- {Sx, in Sy,“ ab POS): ')> 


{Sind Prozeduren, keine Funktionen} 


WRITE (SV, ' DELETE: '); 
DELETE (SV, POS ('ohne', SV), 5); 
WRITELN (SV); 


WRITE (SV, ' INSERT: '); 
INSERT. ("und '.. BY, POS ("zu a'.'SV; 
WRITELN (SV) 


END; 


{3.8. Hauptprogramm 
CASE...OF... END; 

BEGIN, END. mit Punkt; 
MEMAVAIL; 

 (AS-Menue nur angedeutet)} 


BEGIN {Programm-Start} 
REPEAT {Menue-Start} 


R:= CHR(13); {Return} 
a {Taste} 


WRITE (CHR(12)); {Ctri-L} 


WRITELN ( "xx PASCAL-KURS1 ek" , 
R, — ==! 
RR; 

'l. Bildschirm-Ausgabe', R, 

'2. Formatierte Ausgabe', R, 

'3. Wertzuweisung', R, 

'4. Tastatur-Eingabe', R, 

'5. Integer-Mathematik', R, 

'6. Fliesskomma-Mathematik', R, 

'7. Verzweigungen und Schleifen', R, 

'8. String-Verarbeitung', R, 

'9. Ende', R); 


WHILE (T < '1') OR (T > '9') DO 
READ (KEYBOARD, T); 
WRITELN (CHR(12)); 


CASE T OF {AS: ON T GOSUB ... 
'1': BILDSCHIRMAUSGABE; 
'2': FORMATIERUNG; ; 
'3': WERTZUWEISUNG; 

'4': TASTATUREINGABE; 

'5': INTEGERMATHE; 

'6': BEGIN 
FLIESSKOMMAMATHE ; 
FLIESSREST 
END; 

: VERZWEIGUNGEN; 

: BEGIN 
STRINGVERARBEITUNG; 
STRINGREST 
END; 

'9': WRITELN ('Ende...') 

END; 


LE: :<> ASU.ZTHEN 

BEGIN 
WRITE (R, "Taste druecken '); 
READ (CH) 

END; 


UNTIL T = '9'; {Menue-Ende} 


WRITELN ('Freier Speicher: ', 
MEMAVAIL) {AS: FRE (9)} 


END. {Programm-Ende} 
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hluihisiisis| 


FRSTLINE 


Apple-Ile/c-Screendump in 
pple-lle/c-Screendump i LASTLINE 


USCD-Pascal 


von Ulrich Stiehl BASL 


BASCALC 
PWRITE 
PAGEl 
PAGE2 
BANKRD 
ROMRD 
BANK1 
BANK2 
RDROM 
SLOTON | 
COL8PON 
COL8PST 


Das folgende kleine Maschinenprogramm 
gibt den 8ß-Zeichenbildschirm des 
Apple IIe/c auf beliebige Drucker aus. 
Apple-Pascal 1.1 oder 1.2. 

Getestet auf Epson und Imagewriter. 
Nicht für Videxkarte geeignet! 


. DUMPTEST.TEXT C(ompilieren. 

. DUMP.TEXT A(ssemblieren. 

. L(inker aufrufen. 
Bei Host File? DUMPTEST 
Bei Lib File? DUMP 
Bei erneut Host File? Return 
Bei erneut Lib File? Return 
Bei Output File? DUMPTEST 
eingeben 

. Drucker einschalten und 
E(xecute DUMPTEST 


ZEILE 
SPALTE 
BANKSTAT 
_ ROMSTAT 


START 
DUMPTEST.TEXT 


PROGRAM DUMPTEST; 
VAR I: INTEGER; 

{so definieren in Host-Programm: } 
PROCEDURE DUMP; EXTERNAL; 
BEGIN 
FOR I:= 1 TO 24 DO 

BEGIN 

WRITE ('1234567899'); 

WRITE ('abcdefghijklmnopqrstuvwxyz'); 
WRITE ( 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'); 
WRITELN; 

END; 

{so aufrufen in Host-Programm:} 

DUMP; 

END. 


DUMP.TEXT 


; Pascal-Screendump/us/1.8.85 


; Druckt 8®-Z/Z-Bildschirm 

‚ IIc/IIe über PWRITE. 

; Von Pascal-Hostprogramm mit 
; einfachem "DUMP;'" aufrufen. NOCTRL 
.PROC DUMP 

Zeile/Spalte änderbar 

.EQU 1. ;Werte 1-8® 

.EQU 89. ;Werte 1-89 


FRSTCOL 
LASTCOL 


.EQU 1. 
.EQU 24. 


‚Werte 1-24 
‚Werte 1-24 


.EQU 00028 ;ZP retten! 
.EQU ÖFBC1 ;ROM! 

.EQU ÖFF65 ;LC! 

.EQU 80054 ;unten 

.EQU ®C955 ;oben 

.EQU BCQOl1l ;BPL:BANKIl 
.EQU @CcB12 ;BPL:ROM 

.EQU BCQ8B ;R/W BANKl 
.EQU BCQ83 ;R/W BANK2 
.EQU BCQ81l ;R/W ROM 

.EQU Öcßd6 ;Slots on 
.EQU ®CQ0D ;Column 89 on 
.EQU BCQBd1 ;Column 89 store 


JMP START 
.BYTE 9 
.BYTE 


.BYTE ® 
.BYTE ® 


;BPL:BANKl 
;BPL:ROM 


Switches speichern 


LDA 
STA 
LDA 
STA 
3; 

LDA 
STA 
DEC 


BANKRD 
BANKSTAT 
ROMRD 
ROMSTAT 


Zeile 


#FRSTLINE 
ZEILE 
ZEILE 


l. Spalte 


LDA 
STA 
DEC 
LDA 
JSR 
LDA 
LSR 
BCC 
STA 
BCS 
STA 


#FRSTCOL 
SPALTE 
SPALTE 
ZEILE 
ADR 
SPALTE 
A 

OBEN 
PAGELl 
CHAR 
PAGE2 


‚nächste 


Zeichen ausgeben 


TAY 
LDA 
AND 
CMP 
BCS 
ADC 
STA 
JSR 
INC 
LDA 
CMP 
BCC 


(BASL),Y 

#7F 

+29 ;Ctr1? 
NOCTRL ‚nein 

+40 ;normalisieren 
PAGEIl ‚stets unten 
PWRITE 

SPALTE 

SPALTE 

#+LASTCOL 

NEXT 





CR/LF ausgeben 
LDA #®D 

JSR PWRITE 
LDA #9A 

JSR PWRITE 
INC ZEILE 

LDA ZEILE 

CMP #LASTLINE 
BCC LOOP 
Switches normalisieren 
LDA ROMSTAT 
BPL EXIT 

LDA BANK2 

LDA BANK2 

LDA BANKSTAT 
BMI EXIT 

LDA BANKl 

LDA BANKl 

RTS 

Bascalc 

LDA RDROM 

LDA RDROM 

LDA ZEILE 
JSR BASCALC 
LDA BANK2 

LDA BANK2 


STA 
STA 
STA 


SLOTON 
COL8PON 
COL89ST 


‚wichtig 
‚wegen Monitor- 
;‚Flackern! 


RTS 
. END 


4 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 
schriebenes, ungewöhnlich schnelles, un- 
kompliziertes und zugleich „narrensicheres“ 
Adreß-, Datei- und Schemabriefprogramm. 
Technische Daten 
Recordlänge bis zu 230 Zeichen 
560 bis 1000 Records pro Datendiskette 
Maximal 25 Felder pro Record 
Suche nach 3 Indexfeldern 
Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 
einsatzfähig auf Apple Ile und Ilc mit 
2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,— (2 Disketten + ge- 
drucktes Manual) 
U. Stiehl 


c/o Dr. A. Hüthig Verlag 
Postfach 10 28 69 - 6900 Heidelberg 
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Preisliste kostenlos 
Katalog DM 2,- 
in Briefm. 


Unser Dezember-Angebot: 


Profimax Ile, APPLE Ile kompatibel, 
IBM-Look nur 1398.— 


Profimax Ill, APPLE II+ kompatibel, 
nur 1098,— 


2 Prozessoren IBM-Look 


berlin ım 


Chinon-Laufwerk 051A nur 398.- 
Video-Digitalisierer incl. Software nur 298.- 
STAR sg-10, original, mit Serien-Nr. 998.- 


Centronics-Interface, grafikfähig 118.- 


D.O.S Computersysteme 


der Partner für Schule, Hochschule, Forschung, Fertigung 


Apple Il+ 04 lcdp t 


VIDEO-1000. 


APPLE IL 


299; -DHM 


384x288 Bildpunkte 
d Kamera 


msec 
chnung auf HIRES-Seite 


n, 2 Brnustufen, DoabnTetuPräszukang; PPD- 


etc auf Anfrage. 


Am Kühnbach 42, 7170 Schwäb. Hall 11 
Tel. 07 91/5 1736 


Demodisk gegen Einsendung von 10 DM oder V-Scheck. 
Info gratis. bei 


Versand p.NN. oder beim Fachhändler. 


Ing. Büro N,Fricke, Neye Str,33 1000 Berlin 37 


Telefon: 030 / 


Ihr Computer-Fachhändler seit 1979 


0 LT-10-WVoJe][-em u lıc- 


Preise gültig solange Vorrat reicht 16K, Z80, 
10 Disketten Durolife 
Schalt-Netzteil 
Disk-Controler-Karte 

80 Zeichen-Karte m. Softswitch 
Disk-Laufwerk 

Disk-Laufwerk Chinon 
DRUCKER FÜR IHREN APPLE 
Epson FX-85 

Panasonic KX-P 1091 

Riteman F+ 

Riteman Inforunner 
Typenraddrucker 


MONITORE 

9”, grün, 18 MHZ 
Philips TP-200, grün 
Pal-Farbmonitor 
FISCHER-TECHNIK 
Set Computing 


Interface für Apple 
Netzteil 


Bestellungen bitte nur schriftlich an: 

Abacomp GmbH, Kransberger Weg 24, 6 Frankfurt 50: 
Mindestbestellwert: 50,- DM 

Tel. Auskunft: Mo-Sa 8-9.30 Uhr unter (069) 700308 
Ladenöffnung: Mo-Fr 10-12 und 14-18 Uhr in Ffm. 90, 
Ginnheimer Landstraße 1 


mit bis zu 
Drucker 


Berli 








I Besser klingt’s mit I 


2 Mockingboard, 


dem 6-stimmigen Tonsynthesizer für Apple Il und //e. 
Ca. 50 Programme (darunter Oldies wie "Lady Tut" und 
Neuheiten wie "Adventure Construction Set") nutzen die 
Tonausgabe über diese Erweiterungs-Steckkarte. 


Für DM 368,-- wird Ihr APPLE musikalisch; für weitere 
DM 298,-- lernt er durch einen Sprachchip das Sprechen. 
Beides zusammen ist schon für DM 658,-- zu bekommen. 


Walliser & Co., Mönchseestraße 99, 7100 Heilbronn 
Tel. 07131/60048 


(3 r at i S beim Kauf eines Mockingboards: 
eine Diskette mit Weihnachtsliedern 








Monochrome Monitore 
Farbmonitore . . . 2... 
Tastaturen für IBM und Apple 
Versand nur per Nachnahme oder Vorkasse. 
Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 

Preissenkung: 

128K Karte (Saturn kompatibel) . 375,— 
Preissenkung 4164-200 ns 
Mindestabnahme 20 Stck... . . . . 3,90 
Zusatzkarten und Motherboard ausnahmslos 
deutsche Fertigung mit ausgesuchten Bauteilen. 


Ulf Mohwinkel Electronic 


ol 56 32 





Apple und IBM 
kompatible Computer 


Diskcontroler je. . . . . 75- 


80 Zeichenkarte mit Softswitch 

2 Zeichensätze . . . 2. .2....7149,- 
Motherboard 48K ohne Firmware . . 419,- 
Erphi-controler mit Autopatch . . . 300,- 
Siemenslaufwerk F 122 . . . ....515,- 
TEAC FD- 
TEAC FD- 
FD4 Spezialcontroler für Laufwerke 


55B2x40 Track. . . .448,- 
55F2x80 Track . . . .475,- 


2x80 Track . . . ...130,- 
StarSG 10 . .. . 940,- 
ab 375,- 
ab 998,— 
ab 330,— 


ner Straße 73 Pf: 250 166 


5090 Leverkusen Fettehenne 


Telefon 02 14/9 37 81 





Anzeigen- 
schluß 
für 
Ausgabe 


2/86 


ist am 
20. 12. 85 
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Neue Preise #12 


IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 

Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 

Mainboard XT-640 K (on Board) f. 16 Bit + 8 Stots Leerkarte 

Disk Controller leer (f. 2x360 KB-Drives) 

Disk Controller leer (f. 4 x 360KB-Drives) 

Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 

Color RGB + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

512K-RAM Leerkarte 

Multifunktions Leerkarte (Printer, Ser, Game Uhr gepuffert) 4 
Disk-Muliti VO Leerkarte, (f.3x360 K-Drive, 2xRS 232 1 xpar. Printer 

Int., Game/Joystick Port, Real Time Clock/Kalender gepuff.) 

384 K-Multifunktions Leerkarte, (1 xpar. Printer Int., Game/Joystiek 

Port, Real/time Clock/Kalender gepuffert) 

Prototype/Lochraster Leerkarte, durchkontaktiert 

Mainboard XT-256 f. 16 bit CPU, OK (bis 256K-an board, oder 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 395,—— 
Mainboard XT-256 w.o. jedoch 256 K - vollbest. und geprüft 475,-- 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 

sonst w.o. 

Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 

Disk-Controller gepr. (f. 2x360 KB Drives) 

Disk Controller gepr. (1.4 x 360 KB-Drives) 

Monochrome Karte geprüft 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr. 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel = 49,-) 

512K-RAM-Karte gepr. (OKB) 6 
384K-Multifunktionskarte, RS 232, par. Printer, Intert. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw Ex] 
Multifunktionskarte (Par. + Ser. + Uhr gepuffert) gepr. 28 
Disk Multi I/O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int - 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) Ki) 
Profi-Funktionstastatur dt. oder ASCII + 15er Block 

135W-Netzteil mit eingebautem Ventilator, Kurzschlußfest 

360KB-Diskdrive Slimline ohne Gehäuse 

360KB-Disk Drive stimline-TEAC-FD55B-2x40 Tr. 0. Geh 

PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 

XT-256, 16 bit-Rechner (incl. Boot-Eprom) 128K-Ram im 

IBM-look-like Met.-Gehäuse +Profi-Fkt. Tast.+135 W-Netzt. gepr. 

XT-256, w.0.+ Disk Contr.+360KBDrive+Color RGB+ Video 

Graphic-Karte 

XT-256, w.o. jedoch statt Color mit Monochrome Karte 

XT-256, w.o. jedoch mit Monochrome-Graphic-Printer-Karte 
AT-COMPATIBLE COMPUTER 
FESTPLATTEN + CONTROLLER 
IMB-PC-Systemeinheit + Laufwerk 3.719,—- 
IMB deutsche DIN-Tastatur 698,-- 
IBM-Bildschirm Color 1.698,-- 


PC 10-Commodore dt. Tast. 
GENIE 16 C (256K-RAM bis 640K auf M-boaard) 2 x 360K-Drive, 








ser. + par. Printer - Int., + Farbgraphik-16 Color-Karte + 
6 slots, - incl. dt. Tastatur und MS-DOS 


APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 





Motherboard Il 48K leer, durchkont. mit Lötstopplack 59,-- 
Motherboard Il w.o. jedoch 64 K leer 78,-- 
M-board Il 48K, gesockeit, vollbest. + gepr 349,-- 
Motherboard Il 64K gesockelt, vollbest.+gepr 408,-- 
M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr 438,-- 
M-board Ile 64K vollbestückt + gepr 449,-- 
APOLLO Il Kunststoff-Leergehäuse 85,-- 
APOLLO Il Gehäuse incl. Funkt.-Tast 217,-- 
Superstarkes Netzteil — Kurzschlußfest 115,— 


Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallei-Druckerkarte, Ser. Int. V24, 802/24Z-Karte 


PAL-Modulatorkarte, je 18,95 
Entwicklungslochraster-Leerplatine durchkontaktiert 27 
16K-Speicher-Karte geprüft 79,-- 
APPLE orig. 16K-Language Karte gepr 125,-- 
Z-80 CPU-Karte geprüft 74,-- 
Controller DOS 3.3-Karte geprüft 73,-- 
Auto-Controller DOS 3.2/3.3-Karte gepr 119,-- 
Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 288,-- 
Parallel-Drucker-Karte geprüft 74,-- 
Par.-Drucker-Grappler comp. Leerplatine 27,-- 
Par.-Drucker Karte-Grappler comp. geprüft 169,-- 
8bit par. Grappler-Int. + 64K-Buffer + Kabel gepr 445,- 

Seriell-Intertace-Karte V24 geprüft 99,-- 
Super-Seriell Leerkarte 34,-- 
Super-Seriell-Interface Karte gepr 169,-- 
80-Zeichen/24-Zeilen-Karte geprüft 119,-- 
802/24Z-Karte + Softswitch-Schalter Leerplatine 24,-- 
802/24Z-Karte + Softswitch-Schalter geprüft 138,-- 
802/24Z-Softmitch Karte gepr. für Ile 49,-- 
802/242 +64K-Ram + Softsw. Leerkarte f. Ile 27,-- 
802/242 +64K-Ram + Softsw.-Karte best. + gepr. f. lie 79,-- 
IEEE-488 Int. Karte gepr 345,-- 
PAL-Modulator/Color-Karte geprüft 99,-- 
PAL-RGB-Color Karte gepr 149,-—- 
128K-Speicher-Leerkarte 29,-- 
128K-Speicher-Leerkarte + Software + Manual 99,-- 
128K-Speicher-Karte + Software geprüft +Manual 299,-- 
256K-Speicher Leerkarte u— 
256K-Speicher Leerkarte + Software + Manual 109,-- 
256K-Speicher-Karte + Software geprüft +Manual 455,-- 
Maus incl. Software 179,-- 
EPROM-Burner (2708/16/32/64) geprüft 119,-- 
6522-VIA Karte geprüft 135,-- 
Clock Karte geprüft 97,-- 
Speech Karte geprüft 56,-- 
Musik Karte geprüft 107,- 
Wild Karte geprüft 95,-- 
AD/DA-8Bit Karte gepr 375,-- 
Accelerator Karte gepr 775,-- 
Modem Euronorm-Karte gepr. + Software + Man 397,-- 
UHF/TV-Modulator universell 27,50 
Lüfter anclipsbar (220 V) 95.-- 


Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl 275.-- 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. + F--T. 
APOLLO//(48K) + Disk Il F + Contr. + 12”-Monitor 1 
APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. + F.-T. 
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APOLLO//A (48K) + Disk Il F + Contr. + 12”-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 
15er-Block mit Funkt.-Tasten im „IBM-look like” Gehäuse 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr. 

APOLLO// ASKF (48K) w.o, hedicg 2 x Disk Il F + Contr 

Apollo Il ASFK (48K) w.o.+2xDisk II-F+Contr.+12” Mon. 





Aufpreis von 48K zu 64K +Z80 CPU 
Appel lie 128K+802/24Z Karte + Softw. 2.235,—- 





APPLE-DuoDisk, 2 x 143 KB + Controller orig. 2.185,-— 
APPLE-Disk//Laufwerk + Contr. + Kab. DOS 3.3 + ProDOS orig. 7177,-- 
APPLE-Disk//(2. Laufwerk) orig 666, -- 
Epson-Duodisk Il F-Slimline 2x143 KB mit Geh 799,-- 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh 555,-- 
Disk//(2. Laufwerk, Siemens) im Geh 486,-- 
Disk//F + Contr. + Kab. DOS 3.3 (1/2 Höhe) im Geh 419,-- 
Disk//F (2. Laufwerk, 1/2 Höhe) i. Geh 349,-- 


Erphi DuoDisk 1,2 MByte incl. Netzteil + Contr. 1.789,—- 


APPLESOFT + Turorial + Reference Manual engl. 
APPLE-DOS 3.3 Manual engl. 

APPLE-DOS 3.3 Hb. dt. 

APPLE ProDOS HB + Disk orig. 

APPLE-Pascal Reference + Operating Manual engl. 
APPLE-Pascal USCOD 1.1. Disks + Manuals orig. 
APPLE-Pascal Reference Hb. dt. 

APPLE-Pascal Language Hb. dt. 

APPLE-Forth Manual engl. 

APPLE-Fortran Manual engl. 

CP rd Vol. 1-+ Il, Manual engl 

APPLE // Pascal-Handbuch deutsch (te-wi) 

APPLE //-Anwenderhandbuch deutsch (te-wi) 
6502-Programmier-Handbuch deutsch 
6502-Anwendungen Handbuch deutsch (Rod. Zaks) 









APPLE//c (128K) dt. Tastatur 2.495,-- 
Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 489,—- 
Macintosh System (128K) 6.745,-- 
Macintosh System (512K) 7.495,-- 
Macintosh Umrüstung von 128K auf 512K 678,—— 


SANYO MSX-Computer MPL 64 dt. Tastatur 685,-- 


Epson LX 80 F/T, 8 Bil/par. 100Z/S. mit der Super N.L.Q. Qualität 975,-- 
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EPSON GX 80+, 939,-—- 
EPSON RX 100+, 8bit/parallel 1.279,-- 
EPSON FX 85F/T+, Bbit/parallel 160 Z/S. NLQ + IBM Komp. 1.299,-- 
EPSON FX 105+, 8bit/parallei 15” sonst w.o 1.719,-- 
EPSON LO 1500+, 8bit/parallel 3.269,-—- 
EPSON Traktoraufsatz für FX 80 + FX 85 129,50 


APPLE/EPSON-Drucker Graphic-Interface + Kabel 169,—— 
MX 80/82, FX/RX 80 Spezialfarbband-Kassette 

BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod. 

Seikosha SP 800 NLP (A=EPSON-, i=1BM-Comp.) 

STAR SG10, NLQ- + IBM-Zeichensatz, Bbit/par. 





Zenith ZVM 123 gr. 12” oder Zenith ZVM or. 12” 15 MHz 277,—- 
Zenith ZVM 124 gr. 12” 22 MHz IBM-Comp 395,-- 
SANYO DM 2212 12” orange 15 MHz 265,—- 
SANYO 9112 Monochromer Monitor 12”, gr. IMB-Comp 587,50 
Monochromer 12”-Monitor entspiegelt gr. o. or. 22 MHz 389,-- 





Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückp: 
5'«"Verstärkt BASF 3M FuJl DATA 
SCOTCH MAGNE- 
TICS 


3,99/ 3,79 2,86/2,76 

4,19/ 3,99 4,88/ 4,58 4,27/ 4,07 3,96/3,76 2,75/2,65 
5,89/ 5,69 6,38/ 5,88. 5,87/ 5,67 4,76/4,46 3,85/3,65 
5,79/ 5,59 7,18/ 6,68 

7,19 7,09 7,88/ 7,48 7,97/ 7,77 

13,89/12,89 14,87/13,87 

4,49/ 4,39 


4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 Das 
4,79/ 4,59 8,58/ 8,28 a 
7.09/ 6,89 9.88/ 9,58 10,177 977” Sind 


4,49/ 4,39 6,68/ 6,48 r i 


10,99/ 9,99 10,08/ 9,88 7,87/ 7,57 
Zweiseitig 14,99/14,29 15,98/15,18 


3M-Scotch 5'/” Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 





BASF 5’, Reinigungsdiskette einseitig 48,50 
54” Disketten-Archivbox für 10 Disks (1 St/10 St.) 4,75/43,50 
5'4"” Disketten-Archivbox für 15 Disks 3M 19,95 
514” Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
5'4” Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
5/4” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bi. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf 45,-- 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 66,50 
16000 Etiketten-Aufkleber w.o 249,-- 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 










OSZILLOSCOPE HAMEG ab 

Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt. 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Mi u. Sa v. 10-14 h, la Sa v. 10-18 h 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffriungszeiten 
GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt. 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 

sie mit uns. Kostenvorschlag auf Wunsch! 






Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente - Bausätze - uP's 
Meßgeräte - Zubehör - Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 
















1.4. Ausführung 


NEWSTT ($D7D2) - führt den nächsten A/S- 
Befehl via T GOCMD aus (wenn nicht Cirl-C 
gedrückt wurde) und arbeitet als Interpreter- 
Hauptschleife. Nach Ausführung eines Befehls 
wird immer wieder NEWSTT aufgerufen, bis das 
Programmende erreicht ist, um dann nach 
} RESTART zu springen. Diese Routine arbei- 
tet auch im Direktmodus und gibt im Trace- 
Modus die Zeilennummern aus. 

Vorher: TXTPTR = Zeiger auf letztes Zeichen 
vor neu auszuführendem A/S-Befehl. 


GOCMD ($D828) - führt den dem Token (siehe 
Tokentabelle) entsprechenden A/S-Befehl 
aus. Liegt kein Token vor, wird versucht, eine 
„LET“-Anweisung auszuführen, ist er Null, er- 
folgt ein RTS. Entspricht der Token einem Funk- 
tionsaufruf (z.B. „SIN“ oder „MID$“), erfolgt 
ein „SYNTAX ERROR“. Die entsprechenden 
Parameter müssen im Programmtext folgen 
(z.B. Zeilennummer nach „GOTO“). 

Vorher: siehe  NEWSTT. 

Aufruf: Register durch JSR T CHRGET setzen. 


GOLINE ($D935) - setzt via  GOTO die Pro- 
grammzeiger und springt nach T NEWSTT. 
Vorher: TXTPTR = Zeiger auf Zeilenangabe. 


1.5. Sonstiges 


FNDLIN ($D61A) - sucht die angegebene Zeile 
im Programmtext ab dem Programmanfang. 
Vorher: LINNUM ($0050, $0051) = zu suchen- 
de Zeilennummer. 

Nachher: C = 1, wenn Zeile existiert; C = 0, 
wenn Zeile nicht gefunden wurde; LOWTR 
($009B, $009C) = Zeilenanfang der gefunde- 
nen Zeile oder der nächsten, falls nicht ge- 
funden. 


FNDLIN1 ($D61E) - sucht die angegebene Zei- 
le im Programmtext ab der vorgegebenen 
Stelle. 

Vorher: LINNUM ($0050, $0051) = zu suchen- 
de Zeilennummer; LOWTR ($009B, $009C) = 
Zeiger auf Programmtext (Anfang des Suchbe- 
reichs). 

Nachher: siehe T FNDLIN. 


MAINLST ($D6CC) - listet den angegebenen 
Bereich und springt nach T NEWSTT. Ist das 
Bereichsende Zeile 0, wird bis zum Programm- 
ende gelistet. Ein Abbruch durch Ctrl-C ist mög- 
lich, wobei dann zu T RESTART gesprungen 
wird. Der IIc und neue Ile gibt vor jeder Zeile ein 
Leerzeichen aus. 

Vorher: LOWTR ($009B, $009C) = Zeiger auf 
erste zu listende Zeile; LINNUM ($0050, 
$0051) = Zeilennummer der letzten zu listen- 
den Zeile. 


NEWVAR ($EO9C) - legt eine neue (nicht di- 
mensionierte) Variable in der Variablenliste an 
und trägt den Wert O ein (5mal). Dazu werden 
alle dimensionierten Variablen um 7 Bytes nach 
oben verschoben. 

Vorher: VARNAM ($0081-$0082) = Variablen- 
name (2 Buchstaben). 

Nachher: siehe T PTRGET. 
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2. Programmverwaltung 


2.1. Initialisierung 
2.1.1. Global 


COLDST ($F128) — führt einen A/S-Kaltstart 
aus ($EO03-Vektor verweist hierher). Zunächst 
wird die CHRGET-Routine und der Random- 
Startwert (aufgrund eines Bugs ein Byte zuwe- 
nig) in die Zero-Page übertragen. Nach dem 
Setzen einiger Variablen und Pointer wird dann 
die Größe des Systems bestimmt. Danach er- 
folgt ein Sprung zu T RESTART. 


RESTART ($D43C) - führt einen Warmstart 
(Soft-Entry) des A/S-Systems durch. Dabei 
wird „ONERR“ gelöscht, Direktmodus einge- 
stellt und eine Eingabezeile geholt, um diese 
abzuarbeiten. Diese Stelle wird stets dann an- 
gesprungen, wenn der Interpreter ein neues 
Kommando erwartet (Promptzeichen „U“ oder 


„J”). 


SCRTCH ($D64B) - führt „NEW“ aus (beinhal- 
tet TCLEARC, TRESTORE, ?TSTKINI und 
T STXTPN). 

Vorher: C =(Q. 

Nachher: TXTPTR = Zeiger auf Programman- 
fang - 1. 


SETPTRS ($D665) - ruft ? STXTPT auf und 
gehtin F CLEARC über. 


CLEARC ($D66C) - führt „CLEAR“ aus (bein- 
haltet * RESTORE und f STKIN|). 


STKINI ($D683) - initialisiertt den Stack und 
verhindert „CONT“. 
Nachher: S = $F8. 


2.1.2. Einzelne Zeiger 


STXTPT ($D697) - 
Programmanfang - 1. 
Nachher: TXTPTR = Zeiger auf Programman- 
fang - 1. 


setzt TXTPTR auf 


SETDA ($D853) - trägt den übergebenen Zei- 
ger in den DATA-Zeiger ein. 

Vorher: A = DATA-Zeiger, LSB; Y = DATA- 
Zeiger, MSB. 

Nachher: DATPTR ($007D, $007E) = überge- 
bener Zeiger. 


VARTIO ($D8F0) - setzt die Programmlänge 
und das LOCK-Byte für READ ($FEFD) und 
WRITE ($FECD). Diese Routine entfällt beim Ilc. 
Nachher: A1 ($003C, $003D) = $0050 (Be- 
reichsanfang); A2 ($003E, $003F) = $0052 
(Bereichsende). 


PROGIO ($D901) -— setzt die Programmstart- 
und -endadresse für READ und WRITE (siehe 
T VARTIO). Diese Routine entfällt beim IIc. 
Nachher: Ai ($003C, $003D) = TXTTAB 
($0067, $0068); A2 ($003E, $003F) = VARTAB 
($0069, $006A). 


2.2. Programmänderung 


NXTLIN ($D45C) — übernimmt die Zeile im 
Eingabepufffer in den Programmtext und führt 
„CLEAR“ aus. Falls die Eingabezeile nur aus 


der Zeilennummer besteht, wird diese Zeile ge- 
löscht. Danach erfolgt ein Sprung zu TRE- 
START. 

Vorher: TXTPTR = IN - 1 ($O1FF); IN ($0200- 
$02FF) = Eingabezeile im ASCII-Format (Bit 7 
= 0) mit $00 als Endmarker. 

Aufruf: Register durch JSR T CHRGET setzen. 


LINKSET ($DAF2) — setzt die Link-Felder im 
A/S-Text neu. (Wird z.B. von DOS 3.3 nach 
Laden eines A/S-Programms aufgerufen). Führt 
„CLEAR“ und „RESTORE“ aus und springt zu 
N RESTART. 

Vorher: TXTTAB ($0067, $0068) = Programm- 
anfang; VARTAB ($0069, $006A) = Programm- 
ende + 1. 


3. Ein/Ausgabe 


3.1. Eingabe 


INCHR ($D553) - liest ein Zeichen via RDKEY 
($FDOC) ein und löscht Bit 7. 

Nachher: A = eingelesenes Zeichen (ASCIl mit 
Bt7=D0). 


INLINE ($D52C) — übernimmt eine Eingabezei- 
le via GETLINE ($FD6A) ohne Prompt-Zeichen, 
löscht alle Bit 7 und setzt $00 als Endmarker an 
Stelle von Return. Akzeptiert nur 240 Zeichen 
inkl. Return. 

Nachher: IN ($0200-$02FF) = abgelegte Einga- 
bezeile; X = $FF, Y = $01. 


INLINE1 ($D52E) — wie ? INLINE, das Prompt- 
Zeichen kann jedoch gewählt werden. 

Vorher: X = Prompt-Zeichen (ASCII mit Bit 7 = 
1) 

Nachher: siehe T INLINE. 


GDBUFS ($D539) — löscht in der Eingabezeile 
alle Bit 7 und setzt $00 als Endmarker an Stelle 
von Return. 

Vorher: IN ($0200-$02FF) = Eingabezeile; X = 
Länge der Eingabezeile - 1. 

Nachher: siehe T INLINE. 


3.2. Ausgabe 
3.2.1. Einzelne Zeichen 


OUTDO ($DB5C) - gibt das angegebene Zei- 
chen via COUT ($FDED) aus und berücksichtigt 
dabei die eigene Ausgabemaske (NORMAL/ 
FLASH/INVERSE). Danach wird eine Warte- 
schleife eingelegt (für „SPEED“). 

Vorher: A = auszugebendes Zeichen (Bit 7 
egal); SPEEDZ ($00F1) = Länge der Warte- 
schleife. 

Nachher: A = ausgegebenes Zeichen mit Bit 7 
= XV =; 


CRDO ($DAFB) - gibt ein Carriage Return via 
T OUTDO aus. 


OUTSPC ($DB57) — gibt ein Leerzeichen 
(Space = $20) via T OUTDO aus. 


OUTQST ($DB5A) - gibt ein Fragezeichen via 
TOUTDO aus. 


3.2.2. Zahlen 


LINPRT ($ED24) — gibt die angegebene Zahl 
(2-Byte-Integer) via  STROUT aus. 

Vorher: X = auszugebende Zahl, LSB; A = 
auszugebende Zahl, MSB. 
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PRNTFAC ($ED2E) - gibt die Zahl in FAC aus. 
Vorher: FAC ($009D-$00A2) = auszugebende 
Zahl. 


3.2.3. Zeichenketten 


STROUT ($DB3A) — gibt den angegebenen 
String aus, der durch 7 STRLIT ausgewertet 
und durch T FREFAC wieder freigegeben wird. 
Der String muß mit $00 oder Hochkomma (Bit 7 
= 0) enden. Die Ausgabe erfolgt via 
T STRPRT1. 


Vorher: A = Zeiger auf String, LSB; Y = Zeiger 
auf String, MSB. 
Nachher: siehe T STRLIT. 


STRPRT1 ($DB41) — gibt den angegebenen 
String via T OUTDO aus. 

Vorher: INDEX ($005E, $005F) = Zeiger auf 
String; X = String-Länge. 

Nachher: X = 0; Y = String-Länge. 


4. String-Verwaltung 


STRCMP ($DF7D) - vergleicht zwei Strings mit 
der durch CMPFLG angegebenen Operation 
und trägt das Ergebnis (1 oder O für wahr oder 
falsch) in den Hauptfließkomma-Akku ein. Bei- 
de Strings werden freigegeben (?T FREFAC, 
! FRETMP). 


Vorher: FAC+3 ($00A0, $00A1) = Zeiger auf 1. 
Deskriptor;, ARG+3 ($00A8, $00A9) = Zeiger 
auf 2. Deskriptor; CMPFLG ($0016) = Flag für 
Vergleichsoperation (1: >, 2: =, 3: >=, 4:<, 5: 
<>,6: <=), 

Nachher: FAC ($009D-$00A2) = 
VALTYP (80011) = 0. 


1 oder ®; 


STRLIT ($E3E7) — bestimmt die Länge eines 
Strings anhand seines Endmarkers ($00 oder 
X-Registers). Befindet sich der String-Anfang in 
der Zero-Page oder dem Eingabepuffer ($0200- 
$02FF), wird er unter den String-Bereich ge- 
schrieben (unterhalb von FRETOP). Danach 
wird der Deskriptor in den Deskriptor-Stack ko- 
piert, falls dort noch Platz ist (ansonsten „FOR- 
MULA TOO COMPLEX"). 

Vorher: A = Zeiger auf String, LSB; Y = Zeiger 
auf String, MSB; X = Endmarker; TEMPPT 
($0052) = Stackpointer im Deskriptor-Stack. 
Nachher: TEMPPT = TEMPPT +3 = X; 
TEMPST ($0055-$005D) = neuer Deskriptor; 
FRETOP ($006F, $0070) = FRETOP - Länge; 
VALTYP ($0011) = $FF (String); STRNG2 
($00AD, $00AE) = Zeiger auf erstes Zeichen 
hinter String (falls Endmarker = Hochkomma, 
wird dieses ebenfalls übergangen). 


STRSPA ($E3DD) - legt einen neuen String- 
Deskriptor an und reserviert den entsprechen- 
den Platz unter den vorhandenen Strings. Falls 
selbst nach einer Garbage-Collection kein Platz 
mehr vorhanden ist, erfolgt die Meldung „OUT 
OF MEMORY. ,. 

Vorher: A = Länge des neu einzurichtenden 
Strings. 

Nachher: A =; FAC ($009D-$009F) = String- 
Deskriptor;, X = String-Adresse, LSB; Y = 
String-Adresse, MSB. 
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GETSPA ($E452) — schafft Platz für neuen 
String, d.h. FRETOP und FRESPC werden um 
die String-Länge nach unten versetzt. Dabei 
wird ggf. eine Garbage-Collection ausgeführt. 
Reicht der Speicherplatz trotz G/C nicht aus, 
erfolgt „OUT OF MEMORY“. 
Vorher: A = String-Länge. 
Nachher: FRETOP ($006F, $0070) = FRESPC 
($0071, $0072) = FRETOP-A; A =. 





String frei. Wurde der String bereits im String- 
Bereich abgelegt, wird er dort wieder gelöscht. 
Deutet der letzte Eintrag im Deskriptor-Stack 
auf diesen String, wird dieser Deskriptor eben- 
falls vom Stack genommen ( ? FRETMS). 
Vorher: A = Zeiger auf Deskriptor, LSB; Y = 
Zeiger auf Deskriptor MSB. 

Nachher: X = Zeiger auf String, LSB; Y = 
Zeiger auf String, MSB; A = String-Länge. 


FRETMP ($E604) — gibt den es m Sung 


FRESTR ($E5FD) — gibt den letzten String 
mittels ? FREFAGC frei, prüft jedoch vorher, ob 
der letzte Ausdruck tatsächlich ein String war. 
Falls nicht, erfolgt ? TMMERR. 

Vorher: VALTYP ($0011) = $FF (String); anson- 
sten siehe T FREFAC. 

Nachher: siehe T FRETMP. 


FREFAC ($E600) — gibt den bezeichneten 
String mittels T FRETMP frei. 

Vorher: FAC+3 ($00A0, $00A1) = Zeiger auf 
String-Deskriptor. 

Nachher: siehe T FRETMP. 


FRETMS ($E635) — entfernt den obersten Ein- 
trag des Deskriptor-Stacks, falls es sich um den 
angegebenen String handelt. 

Vorher: LASTPT ($0052, $0053) = Zeiger auf 
letzten Deskriptor; A = Zeiger auf derzeitigen 
Deskriptor, LSB; Y = Zeiger auf derzeitigen 
Deskriptor, MSB. 

Nachher: Z = 1, falls Deskriptor entfernt wurde. 


GARBAG ($E484) — führt eine Garbage-Col- 
lection aus. Dabei werden alle nicht mehr refe- 
rierten Strings (sog. String-Leichen) entfernt 
und die verbleibenden Strings, d.h. alle durch 
die Variablenliste und den temporären Deskrip- 
tor-Stack bezeichneten Zeichenketten, nach 
oben verschoben. 

Vorher: VARLEN ($008F) = 3. 

Nachher: FRETOP ($006F, $0070) = Zeiger auf 
Start der Strings. 


5. Mathematik 


5.1. Integer-Mathematik 


MULT ($E2AD) - führt eine 16-Bit-Multiplika- 
tion durch. Wird das Ergebnis größer als 16 Bits, 
erfolgt die Meldung „OUT OF MEMORY“. 
Vorher: STRNG2 ($00AD, $00AE) = Multiplika- 
tor; LOWTR ($009B, $009C) = Zeiger auf Multi- 
plikand, durch Y indiziert ((LOWTR),Y); Y = In- 
dex auf Multiplikand, MSB. 

Nachher: X = Ergebnis, LSB; Y = A = Ergeb- 
nis, MSB. 


MULT1 ($E2B8) — führt 16-Bit-Multiplikation 
aus wie 1 MULT. 
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Vorher: STRNG2 ($00AD, $00AE) = Multiplika- 
tor; RESULT+2 ($0064, $0065) = Multiplikant. 
Nachher: siehe T MULT. 


5.2. Fliießkomma-Mathematik 
5.2.1. Einfache Operationen 


ZEROFAC ($E84E) — setzt FAC zu null (nur 
den Exponenten und das Vorzeichen). 
Nachher: FAC ($009D, $00A2) = 0. 


FALSE ($DF5D) - trägt O in den Hauptfließ- 
komma-Akku ein. 
Nachher: FAC ($009D) = 0. 


TRUE ($DF60) - trägt 1 in den Hauptfließkom- 
ma-Akku ein. 
Nachher: FAC ($009D-$00A2) = 1. 


RND ($EFAE) - bildet eine Zufallszahl, abhän- 
gig von FAC (entspricht „RND“). 

Vorher: FAC ($009D-$00A2) = 0, für alte Zu- 
fallszahl; FAC > 0 für neue Zufallszahl; FAC < 
0 für definierte Zufallsfolge; RNDSEED ($00C9- 
$00CD) = Startwert. 

Nachher: FAC = neue Zufallszahl im Intervall 
[0, 1[. 


SGN ($EB90) - trägt das Vorzeichen von FAC 
in FAC ein. 

Nachher: FAC ($009D-$00A2) = -1, wenn FAC 
< 0; FAC = 0, wenn FAC = 0; FAC = 1, wenn 
FAC>O. 


INT ($EC23) — schneidet die Nachkommastel- 
len ab (entspricht „INT). 
Nachher: FAC ($009D-$00A2) = INT (FAC). 


ABS ($EBAF) - bildet den Betrag von FAC. 
Nachher: FAC ($009D-$00A2) = ABS (FAC). 


5.2.2. Funktionen 


SQR ($EE8D) — berechnet die Quadratwurzel 
von FAC. (Ausführung über SOR (X) = X 1 0,5.) 
Nachher: FAC ($009D-$00A2) = SQR (FAC). 


EXP ($EF09) — exponiert FAC zur Basis e = 
2,71828. (Ausführung über Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = EXP (FAC). 


LOG ($E941) — berechnet den natürlichen Lo- 
garithmus von FAC und legt das Ergebnis wie- 
der in FAC ab. Ist das Argument <= 0, erfolgt 
} ILQERR. (Ausführung mittels Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = LOG (FAC). 


SIN ($EFF1) — berechnet den Sinus von FAC. 
(Ausführung über Potenzreihe.) 
Nachher: FAC ($009D-$00A2) = SIN (FAC).. 


COS ($EFEA) — berechnet den Cosinus von 
FAC. (Ausführung über COS (X) = SIN (X + Pi/ 
2).) 

Nachher: FAC ($009D-$00A2) = COS (FAC). 


TAN ($F03A) — berechnet den Tangens von 
FAC. (Ausführung über TAN (X) = SIN (X) / 
COS (X).) 

Nachher: FAC ($009D-$00A2) = TAN (FAC). 


ATN ($FO9E) — berechnet den Arcustangens 
von FAC. (Ausführung über Potenzreihe; ist X 
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> 1, so wird folgende Formel angewandt: ATN 
(X) = P/2 - ATN (1 /X).) 
Nachher: FAC ($009D-$00A2) = ATN (FAC). 


ODDSER ($EF5C) — berechnet eine ungerade 
Potenzreihe (ax X +bxX1T3+cxX175+ 
...). Dabei müssen die Reihenkoeffizienten (in 
umgekehrter Reihenfolge) als Tabelle abgelegt 
sein. Das erste Byte gibt die Anzahl - 1 wieder, 
darauf folgen die Koeffizienten als 5-Byte-Fließ- 
kommazahl. Zunächst wird das Argument X 
quadriert, dann die Routine ?T SERIES (Ein- 
sprung) aufgerufen und das Ergebnis noch ein- 
mal mit dem Argument multipliziert ([X*(a+b 
*xX12+cxX14...). 

Vorher: siehe } SERIES. 

Nachher: siehe ? SERIES. 


SERIES ($EF72) — berechnet eine Potenzreihe 
(a+bxX+cxX12 +...) nach dem Horner- 
Schema: a+Xx(b+Xx(c+Xx(d...))). 
Die Koeffizienten-Tabelle muß wie unter 
T ODDSER beschrieben abgelegt sein. 

Vorher: FAC ($009D-$00A2) = Argument X; A 
= Zeiger auf Koeffizienten-Tabelle, LSB; Y = 
Zeiger auf Koeffizienten-Tabelle, MSB. 
Nachher: FAC = Ergebnis der Potenzreihe. 


5.2.3. Verknüpfungen 


FPWRT ($EE97) - exponiert ARG um FAC und 
legt das Ergebnis in FAC ab. (Ausführung über 
XTY=EXP(LOG (X) xY).) 

Vorher: ARG ($00A5-$00A9) = Basis; FAC 
($009D-$00A2) = Exponent; Z = 1, wenn FAC 
=(. 

Nachher: FAC = ARG f FAC. 


FADD ($E7BE) — überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
T FADDT über. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe T FADDT. 


FADDT ($E7C1) — addiert FAC und ARG und 
legt das Ergebnis in FAC ab. 

Vorher: FAC ($009D-$00A2) = 1. Summand; 
ARG ($00A5-$00A9) = 2. Summand; A = FAC 
($009D). 

Nachher: FAC = FAC + ARG. 


FADDH ($E7A0) — addiert 0,5 zum Hauptfließ- 
komma-Akku. 
Nachher: FAC ($009D-$00A2) = FAC + 0,5. 


FSUB ($E7A7) — überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
? FSUBT über. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe T FSUBT. 


FSUBT ($E7AA) — subtrahiert ARG von FAC 
und legt das Ergebnis in FAC ab. 
Vorher: FAC ($009D-$00A2) = 
ARG ($00A5-$00A9) = Minuend. 
Nachher: FAC = ARG - FAC. 


Subtrahend; 


FMULT ($E97F) — überträgt die angegebene 
(gepackte) Zahl nach ARG und geht in 
? FMULTT über. 
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Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 
Nachher: siehe } FMULTT. 


FMULTT ($E982) — multipliziert FAC und ARG 
und legt das Ergebnis in FAC ab. 

Vorher: FAC ($009D-$00A2) = Multiplikand; 
ARG ($00A5-$00A9) = Multiplikator; A = FAC 
($009D). 

Nachher: FAC = FAC x ARG. 


MULT10 ($EA39) — multipliziert FAC mit 10. 
Nachher: FAC ($009D-$00A2) = FAC x 10. 


FDIV ($EA66) — überträgt die angegebene (ge- 
packte) Zahl nach ARG und geht in ? FDIVT 
über. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: siehe ? FDIVT. 


FDIVT ($EA69) — dividiert ARG durch FAC und 
legt das Ergebnis in FAC ab. Ist der Divisor = 0, 
erfolgt T DBZERR. 

Vorher: ARG ($00A5-$00A9) = Dividend; FAC 
($009D-$00A2) = Divisor; A = FAC. 

Nachher: FAC = ARG / FAC. 


DIV10 ($EA55) — dividiert FAC durch 10. 
Nachher: FAC ($009D-$00A2) = FAC / 10. 


OR ($DFAF) — verknüpft den Hauptfließkomma- 
Akku mit dem zweiten Fließkomma-Akku durch 
logisches ODER. Ist eines der beiden Argu- 
mente ungleich 0; wird FAC zu 1. 

Vorher: FAC ($009D) = 1. Operand; Aku 
($00A5) = 2. Operand. 

Nachher: FAC ($009D-$00A2) = 1 oder 0. 


AND ($DF55) — verknüpft FAC und ARG durch 
logisches UND. Sind beide Argumente ungleich 
0, wird FAC zu 1. 

Vorher: siehe T OR. 

Nachher: siehe T OR. 


5.2.4. Sonstiges 


FCOMP ($EBB2) - vergleicht FAC (ungepackt) 
mit der angegebenen Zahl (gepackt) im Spei- 
cher. 

Vorher: A = Zeiger auf zu vergleichende Zahl, 
LSB; Y = Zeiger auf zu vergleichende Zahl, 
MSB. 

Nachher: A = $FF, wenn FAC < Zahl; A = $00, 
wenn FAC = Zahl; A = $01, wenn FAC > Zahl; 
Z = 1, wenn FAC = Zahl. 


SIGN ($EB82) — überprüft das Vorzeichen von 
FAC. 

Nachher: A = $FF, wenn FAC ($00A2) < 0; A = 
$00, wenn FAC ($009D) = 0; A = $01, wenn 
FAC ($00A2) > 0; Z = 1, wenn FAC =. 


SIGNIF ($E82E) — normiert FAC, d.h. FAC wird 
so angepaßt, daß Bit 7 von FAC+1 (erstes 
Mantisse-Byte) eine 1 enthält (i.allg. Links- 
Shift). Die unnormierte Form kann bei arithmeti- 
schen Operationen auftreten, vermindert jedoch 
die Genauigkeit. Daher wird FAC nach einigen 
Operationen unter Einbeziehung des 5. Mantis- 
se-Bytes neu normiert. 


RNDB ($EB72) - rundet FAC, d.h. es wird unter 
Einbeziehung des 5. Mantisse-Bytes eine Man- 
tissenbreite von 32 Bits erzeugt. 


ADDACC ($ECD5) — addiert die Integer-Zahl 
im A-Register zu FAC. 

Vorher: A= Summand (0-255). 

Nachher: FAC ($009D-$00A2) = FAC + A. 


FRE1 ($E2E5) - legt die Anzahl der noch freien 
Speicherplätze in FAC als Fließkommazahl ab. 
Vorher wird eine Garbage-Collection durchge- 
führt (siehe F GARBAG). 

Vorher: VARLEN ($008F) = 3. 

Nachher: FAC ($009D-$00A2) = Anzahl freier 
Speicherstellen. 


6. Konvertieren und Übertragen 


6.1. Konvertierung 


FIN ($EC4A) — wandelt den durch den Text- 
pointer angegebenen String in eine Fließkom- 
mazahl um und legt das Ergebnis in FAC ab. 
Vorher: TXTPTR = Zeiger auf erstes Zeichen - 1 
der ASCII-Folge mit Bit 7=0. 

Aufruf: Register durch JSR f CHRGET setzen. 
Nachher: FAC ($009D-$00A2) = ausgewertete 
Zahl. 


FOUT ($ED36) — wandelt die Zahl in FAC in 
einen String um (Bit 7 = 0) und legt diesen im 
Stack (ab $0100) ab. 

Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: STACK ($0100-$010A) = umgewan- 
delte Zahl als String; A = Zeiger auf Stack, LSB 
($00); Y = Zeiger auf Stack, MSB ($01). 


VAL ($E707) — wandelt den angegebenen 
String in eine Zahl in FAC um. 

Vorher: siehe T GETSTR. 

Nachher: FAC ($009D-$00A2) = umgewandel- 
te Zahl. 


GIVAYF ($E2F2) — wandelt eine vorzeichenbe- 
haftete 15-Bit-Integer-Zahl in eine Fließkomma- 
zahl um. 

Vorher: A = zu übertragende Zahl, LSB; Y = zu 
übertragende Zahl, MSB (Bit 7 = Vorzeichen); 
C=1. 

Nachher: FAC ($009D-$00A2) = Fließkomma- 
zahl; VALTYP (80011) = 0. 


SNGFLT ($E301) — wandelt die Zahl im Y- 
Register in eine Fließkommazahl um. 

Vorher: Y = zu übertragende Zahl. 

Nachher: siehe } GIVAYF. 


GQINT ($EBF2) — wandelt FAC in eine 31-Bit- 
Integer-Zahl mit Vorzeichen um (negative Zah- 
len im Zweierkomplement). Es wird nicht über- 
prüft, ob FAC in diesem Bereich liegt. 
Nachher: FAC ($009E-$00A1) = Integer-Zahl; 
Bit 7 von FAC ($009E) = Vorzeichen. 


CONINT ($E6FB) — wandelt den Haupffließ- 
komma-Akku in eine Integer-Zahl (0-255) um. 
Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: siehe T GETBYT. 
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AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[] suche Hardware [] suche Software [] Tausch UL] Verschiedenes 
[] biete Hardware [] biete Software [] Kontakte U Chiffre 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 




























Zu der in »peeker«, Heft ‚Sseite_______ erschienenen 
L] Anzeige [| Produktbesprechung 





über 


bitte ich um detaillierte Information. 
Ich wünsche [|] Prospekt, Datenblatt [| Preisliste [] schriftliches Angebot U] tel. Rückruf 


Produkt und Bestellnummer 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


drucker mit y -Interface. 
Preis auf Anfrage. Tel. 007 





Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 
Aufsätzen in »peeker« haben: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 

plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 

Fa. Keyboard & Co. 


ANTWORTKARTE 







en 7 = 7 | peeker-Börse 
Bitte veröffentlichen Sie den um- Anzeigen-Service 


stehenden Text von Zeilen 
Dr. Alfred Hüthig Verlag 


DM in der nächsterreich- 
Postfach 10 28 69 


ä 
baren Ausgabe von »peeker« 
6900 Heidelberg 1 











Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 





Unterschrift 








() Karte bitte vollständig ausfüllen 


oO Vorname, Name POSTKARTE 
x Firma 
> Firma 
oO Straße 
PLZ/Ort 
Straße 
_ Telefon mit Vorwahl 
Anschrift der Firma angeben, bei der Sie PLZ/Ort 
bestellen bzw. von der Sie Informationen 
wünschen 








IYPIIY 


Karte bitte vollständig ausfüllen 


POSTKARTE 


Vorname, Name 
Firma 


& 

OÖ  peeker 

r— Redaktion 
BEE Straße Postfach 10 2869 
3 BZ 777, 6900 Heidelberg ı 


Telefon mit Vorwahl 





EURE 





Produkt- 
Karte 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 





Nichts einfacher als 
das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 
vergessen: 

kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 
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GETADR ($E752) — wandelt den Hauptfließ- 
komma-Akku in eine 2-Byte-Integer-Zahl in 
LINNUM um. 

Vorher: FAC ($009D-$00A2) = umzuwandeln- 
de Zahl. 

Nachher: Y = LINNUM ($0050) = umgewan- 
delte Zahl, LSB; A = LINNUM+1 ($0051) = 
umgewandelte Zahl, MSB. 


PARSE ($D56C) — wandelt die BASIC-Schlüs- 
selwörter in der Eingabezeile in Tokens (siehe 
Tokentabelle) um und legt die Eingabezeile 
neu ab. Der IIc und neue Ile akzeptiert hier auch 
Kleinbuchstaben. 

Vorher: IN ($0200-$02FF) = zu bearbeitende 
Zeile mit Endmarker $00; X = Zeiger auf erstes 
Zeichen - 1; Y = $04. 

Nachher: IN = umgewandelte Zeile. 


6.2. Übertragung 
6.2.1. Allgemein 


BLTU1 ($D39A) — verschiebt den Bereich von 
LOWTR bis HIGHTR nach HIGHDS (Ende des 
Zielbereichs). Der Transfer erfolgt von oben 
nach unten (Left-Move), daher ist diese Routine 
nicht geeignet zur Verschiebung nach unten bei 
Überschneidung von Ziel- und Quellbereich. 
Vorher: LOWTR ($009B, $009C) = Quellbe- 
reich, Anfang; HIGHTR ($0096, $0097) = 
Quellbereich, Ende; HIGHDS ($0094, $0095) = 
Zielbereich, Ende. 


6.2.2. Deskriptoren und Strings 


STRCPY ($DA9YA) — überträgt den angegebe- 
nen Deskriptor (3 Bytes) in die durch FORPNT 
bezeichnete Variable. 

Vorher: VPNT ($00A0, $00A1) = Zeiger auf 
Deskriptor; FORPNT ($0085, $0086) = Zeiger 
auf Deskriptorfeld der Variablen. 


PUTNEW ($E42A) — überträgt den Deskriptor 
in FAC in den Deskriptor-Stack, falls dort noch 
Platz vorhanden ist. Ansonsten wird T FTCERR 
ausgeführt. 

Vorher: FAC ($009D-$009F) = Deskriptor; 
TEMPPT ($0052) = Stackpointer im Deskriptor- 
Stack. 

Nachher: TEMPPT = TEMPPT + 3 = X; 
TEMPST ($0055-$005D) = neuer Deskriptor; 
VALTYP ($0011) = $FF (String). 


STRINI ($E3D5) — überträgt FAC+3 in den 


Deskriptor-Pointer, ansonsten siehe 
T STRSPA. 

Vorher: A = Länge des neu einzurichtenden 
Strings. 


Nachher: DSCPTR ($008C, $008D) = FAC+3 
($00A0, $00A1); ansonsten siehe T STRSPA. 


MOVINS ($E5D4) — überträgt den angegebe- 
nen String mittels ? MOVSTR. 

Vorher: STRINGI ($00AB-$00AD) = String- 
Deskriptor; FRESPC ($0071, $0072) = Zeiger 
auf Zielbereich. 

Nachher: siehe T MOVSTR. 


MOVSTR ($E5E2) — überträgt den durch die 
Register angegebenen String und setz FRESPC 
um die String-Länge nach oben. 

Vorher: X = Zeiger auf String, LSB; Y = Zeiger 
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auf String, MSB; A = String-Länge; FRESPC 
($0071, $0072) = Zeiger auf Zielbereich. 
Nachher: FRESPC = FRESPC + String-Länge. 


6.2.3. Fließkommazahlen 


CONUPK ($E9E3) — überträgt die angegebene 
(gepackte) Zahl nach ARG. Diese liegt dann als 
ungepackte Zahl vor, d.h. das Vorzeichen wird 
in einem eigenen Byte abgelegt, während in der 
gepackten Form das Vorzeichen im ersten Man- 
tisse-Byte enthalten ist. Darüber hinaus werden 
die Vorzeichen von FAC und ARG zu einem 
Gemeinschaftsvorzeichen verknüpft. 

Vorher: A = Zeiger auf zu übertragende Zahl, 
LSB; Y = Zeiger auf zu übertragende Zahl, 
MSB. 

Nachher: ARG ($00A5-$00A9) = ungepackte 
Zahl; SGNCPR ($00AB) = Gemeinschaftsvor- 
zeichen; A = FAC ($009D); Z = 1, wenn FAC = 
0. 


MOVFA ($EB53) — überträgt ARG nach FAC 
und richtet ein 5. Mantisse-Byte ein. 

Nachher: FAC ($009D-$00A2) = ARG ($00A5- 
$00A9). 


MOVAF ($EB63) — überträgt den gerundeten 
Wert von FAC nach ARG. 

Nachher: ARG ($00A5-$00A9) = FAC ($009D- 
$00A2). 


MOVMF ($EB2B) — überträgt den gerundeten 
Wert (5. Mantisse-Byte) von FAC in den ange- 
gebenen Speicherbereich (5 Bytes). 

Vorher: FAC ($009D-$00A2) = zu übertragen- 
de Zahl; X = Zeiger auf Speicherbereich, LSB; 
Y = Zeiger auf Speicherbereich, MSB. 
Nachher: Z = 1, wenn FAC =. 


MOVFM ($EAF9) — überträgt die angegebene 
(gepackte) Zahl nach FAC (siehe T CONUPK). 
Dabei wird in FAC noch ein 5. Mantisse-Byte 
angelegt, das die Genauigkeit bei der Auswer- 
tung von Polynomen erhöht. 

Vorher: A = Zeiger auf Zahl, LSB; Y = Zeiger 
auf Zahl, MSB. 

Nachher: FAC ($009D-$00A2) = übertragene 
Zahl; EXTRAFAC ($00AC) = 0, Z = 1, wenn 
Zahl =Q. 


MOV2F ($EBIE) -— überträgt FAC via 
} MOVMF in den 3. Hilfsfließkomma-Akku. 
Nachher: FAC3 ($0098-$009C) = 
($009D-$00A2). 


FAC 


MOVIF ($EB21) - überträgt FAC via T MOVMF 
in den 2. Hilfsfließkomma-Akku. 

Nachher: FAC2 ($0093-$0097) = FAC ($009D- 
$00A2). 


VARL ($DED5) — überträgt den Wert der fol- 
genden Variablen in den Hauptfließkomma-Ak- 
ku, falls es sich um eine numerische Variable 
handelt. 

Vorher: siehe T PTRGET. 

Nachher: siehe T PTRGET. 


VARL1 ($DEE9) — überträgt die durch VPNT 
bezeichnete 16-Bit-Zahl als FP-Zahl in den 
Hauptfließkomma-Akku. 
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Vorher: VPNT ($00A0, $00A1) = Zeiger auf 
Zahl. 
Nachher: FAC ($009D-$00A2) = Fließkomma- 
zahl. 


7. Grafik 


7.1. Lores-Grafik 


PLOTFNS ($F1EC) - liest zwei Ausdrücke, die 
durch ein Komma getrennt sind, ein und wertet 
sie als Integer-Zahlen zwischen O und 47 aus. 
Stimmt der Bereich nicht überein, erfolgt | IL- 
QERR. Beim IIc werden hier Werte zwischen O 
und 79 zugelassen. 

Vorher: TXTPTR = Zeiger auf 1. Zeichen des 1. 
Parameters. 

Nachher: X = H2 ($002C) = V2 ($002D) = 
zweiter Parameter; FIRST ($00F0) = 1. Para- 
meter. 


LINCOOR ($F209) — liest zwei Ausdrücke via 
! PLOTFNS ein, gefolgt von „AT“ (ansonsten 
T SYNERR) und einem weiteren Ausdruck im 
Bereich 0-47. Ist der erste Parameter größer als 
der zweite, werden sie vertauscht. Beim Ilc 
werden hier Werte zwischen O und 79 zuge- 
lassen. 

Vorher: siehe T PLOTFNS. 

Nachher: FIRST ($00F0) = kleinerer der beiden 
ersten Parameter; H2 ($002C) = V2 ($002D) = 
größerer der beiden ersten Parameter; X = 3. 
Parameter. 


PLOT ($F225) — zeichnet einen Block auf den 
Lores-Bildschirm mittels der Monitor-Routine 
PLOT ($F800). 


Vorher: COLOR ($003C) = Farbmaske; 
TXTPTR = Zeiger auf 1. Zeichen der Koordina- 
tenangabe. 


HLIN ($F232) — zeichnet eine horizontale Linie 
auf den Lores-Bildschirm mittels der Monitor- 
Routine HLINE ($F819). 

Vorher: siehe T PLOT. 


VLIN ($F241) — zeichnet eine vertikale Linie auf 
den Lores-Bildschirm mittels der Monitor-Routi- 
ne VLINE ($F828). 

Vorher: siehe T PLOT. 


7.2. Hires-Grafik 


HFNS ($F6B9) - liest die HGR-Koordinaten ein 
und prüft deren Wertebereich (0-279 bzw. O- 
191). Stimmen die Werte nicht, erfolgt ?IL- 
QERR. 

Vorher: TXTPTR = Zeiger auf 1. Zeichen der X- 
Koordinate. 

Nachher: X = X-Koordinate, LSB; Y = X-Koor- 
dinate, MSB; A = Y-Koordinate. 


SHPFNS ($F72D) - liest die Shape-Nummer 
und die (durch „AT“ getrennten) Koordinaten 
via THFNS ein und setzt die internen Cursor- 
Koordinaten entsprechend. Wird kein „AT“ an- 
getroffen, erfolgt T SYNERR. 

Vorher: TXTPTR = Zeiger auf 1. Zeichen der 
Shape-Nummer; SHPTAB ($00E8, $00E9) = 
Zeiger auf Shape-Tabelle. 

Nachher: SHAPE ($001A, $001B) = Zeiger auf 
angegebenes Shape; A = ROT-Wert. 
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HPOS ($F411) — berechnet die internen HGR- 
Cursor-Werte. Diese umfassen die Basisadres- 
se der Bildschirmzeile, den Spaltenindex des 
Zeilen-Bytes und den Bit-Index des Spalten- 
Bits (Bit-Maske). 

Vorher: A = Y-Koordinate; X = X-Koordinate, 
LSB; Y = X-Koordinate, MSB; HPAG ($00E6) 
= Seite; HCOLORO ($00E4) = Basis-Farb- 
maske. 

Nachher: GBAS ($0026, $0027) = Basisadres- 
se; HGRINDX ($00E5) = Spaltenindex; 
HMASK ($0030) = Bit-Maske; HCOLOR 
($001C) = aktuelle Farbmaske. 


HFIND ($F5CB) — berechnet aus den internen 
Cursor-Daten die ursprünglichen X- und Y- 
Koordinaten. (Diese Routine wird vom A/S-In- 
terpreter nicht benutzt.) 

Vorher: siehe T DECRX. 

Nachher: HGRX ($00E0, $00E1) = X-Koordina- 
te; HGRY ($00E2) = Y-Koordinate. 


HGR2 ($F3D8) - führt „HGR2“ aus und geht 
dabei in ? HCLR über. 


HGR ($F3E2) — führt „HGR“ aus und geht 
dabei in ? HCLR über. 


HCLR ($F3F2) — löscht den angegebenen 
HGR-Bildschirm zu schwarz. 

Vorher: HPAG ($00E6) = HGR-Seite ($20 = 
Seite 1, $40 = Seite 2). 

Nachher: HCOLOR ($001C) = aktuelle Farb- 
maske = $00. 


BKGND ($F3F6) - färbt den Bildschirm mit der 
angegebenen Farbe ein. 

Vorher: HPAG ($00E6) = Seite; HCOLOR 
($001C) = aktuelle Farbmaske. 


HCOLOR1 ($F6EC) - legt die der übergebenen 
Farbnummer entsprechende Basis-Farbmaske 
in HCOLORO ab. Ist die Farbnummer zu groß, 
erfolgt T ILQERR. 

Vorher: X = Farbnummer (0-7). 

Nachher: HCOLORO ($00E4) = entsprechende 
Basis-Farbmaske. 


HPLOT ($F457) - ruft T HPOS auf und setzt 
einen Punkt in der angegebenen Farbe. 

Vorher: siehe T HPOS. 

Nachher: siehe T HPOS. 


HGLIN ($F53A) — zeichnet eine Verbindunggsli- 
nie zwischen zwei Punkten in der aktuellen 
Farbe. 

Vorher: HGRX ($00E0, $00E1) = X-Koordinate 
des 1. Punktes; HGRY ($00E2) = Y-Koordinate 
des 1. Punktes; A = X-Koordinate, LSB des 2. 
Punktes; X = X-Koordinate, MSB des 2. Punk- 
tes; Y = Y-Koordinate des 2. Punktes; interne 
Cursor-Daten (siehe T DECRX) beziehen sich 
auf 1. Punkt. 

Nachher: HGRX/HGRY = Koordinaten des 2. 
Punktes; interne Cursor-Daten beziehen sich 
nun auf 2. Punkt. 


DRAW ($F601) — zeichnet ein Shape in ange- 
gebener Farbe, Größe und Richtung. Die An- 
fangskoordinaten sind durch die internen Cur- 
sor-Daten bestimmt (siehe T DECRX). 
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Vorher: X = Zeiger auf Shape, LSB; Y = Zeiger 
auf Shape, MSB; A = ROT-Wert; SCALE 
($00E7) = SCALE-Wert. 


DRAW1 ($F605) — zeichnet wie T DRAW ein 
Shape. 

Vorher: SHAPE ($001A, $001B) = Zeiger auf 
Shape; ansonsten wie T DRAW. 


XDRAW ($F65D) - zeichnet ein Shape in der 
angegebenen Farbe, Größe und Richtung durch 
Invertierung aller Bit-Punkte mit den auf dem 
Bildschirm vorhandenen. Die Anfangskoordina- 
ten sind durch die internen Cursor-Daten be- 
stimmt (siehe T DECRX). 

Vorher: siehe f DRAW. 


XDRAW1 ($F661) - zeichnet wie f XDRAW ein 
Shape. 
Vorher: siehe T DRAWI. 


DECRX ($F467) - setzt die internen Cursor- 
Daten um einen Punkt nach links. War der Punkt 
am linken Bildschirmrand, erfolgt ein Wrap 
around zum rechten Rand in derselben Zeile. 

Vorher: GBAS ($0026, $0027) = Basisadresse; 
Y = Spaltenindex; HMASK ($0030) = Bit-Mas- 
ke; HCOLOR ($001C) = aktuelle Farbmaske. 


INCRX ($F48A) setzt die internen Cursor- 
Daten um einen Punkt nach rechts. War der 
Punkt am rechten Bildschirmrand (279), erfolgt 
ein Wrap around zum linken Rand in derselben 
Zeile. 

Vorher: siehe T DECRX. 


DECRY ($F4D5) - setzt die internen Cursor- 
Daten um einen Punkt nach oben. War der 
Punkt am oberen Bildschirmrand, erfolgt ein 
Wrap around zum unteren Rand in derselben 
Spalte. 

Vorher: siehe ? DECRX. 


INCRY ($F504) — setzt die internen Cursor- 
Daten um einen Punkt nach unten. War der 
Punkt am unteren Bildschirmrand (191), erfolgt 
ein Wrap around zum oberen Rand in derselben 
Spalte. 

Vorher: siehe T DECRX. 


INVMASK ($F47E) — invertiert die aktuelle 
Farbmaske (wenn es sich nicht um weiß oder 
schwarz handelt) für den Übergang von gerader 
zu ungerader Spaltenzahl oder umgekehrt. 
Nachher: HCOLOR ($001C) = invertierte Farb- 
maske. 


8. Prüf- und Fehlerroutinen 


8.1. Prüfen 


CHKSTK ($D3D6) — überprüft, ob auf dem 
Stack noch genügend Platz für Rücksprung- 
adressen vorhanden ist (mit 18 Adressen Re- 
serve), ansonsten erfolgt „OUT OF MEMORY“. 
Vorher: A = Anzahl der erwünschten Adressen 
= Bytes /2. 


REASON ($D3E3) — überprüft, ob die überge- 
bene Adresse unterhalb von FRETOP ($O06F, 
$0070) liegt (führt ggf. Garbage-Collection aus). 
Falls nicht, erfolgt „OUT OF MEMORY“. 


Vorher: A = Adresse, LSB; Y = Adresse, MSB. 
Nachher: A=;,\Y=. 


CHKNUM ($DD6A) — überprüft, ob der letzte 
Ausdruck numerisch war, ansonsten erfolgt ein 
Sprung zu T TMMERR. 

Vorher: VALTYP ($0011) = Flag für Ausdrucks- 
typ ($00 = Zahl, $FF = String). 


CHKSTR ($DD6C) -— überprüft, ob der letzte 
Ausdruck ein String war, ansonsten wird 
} TMMERR durchgeführt. 

Vorher: siehe f CHKNUM. 


ISLETC ($E07D) - überprüft, ob ein Großbuch- 
stabe vorliegt. 

Vorher: A = zu prüfendes Zeichen (Bit 7 =D). 
Nachher: A =; C = 1 bei Buchstabe; C = 0, 
wenn nicht. 


ISCNTC ($D858) — überprüft, ob Ctrl-C ge- 
drückt wurde, und führt dementsprechend 
T HANDLERR (falls „ONERR“ angegeben wur- 
de) oder T STOP aus. Ansonsten erfolgt ein 
RTS. 

Nachher: ERRNUM ($00DE) = $FF, falls Ctrl-C 
gedrückt wurde. 


SYNCHR ($DECO) — überprüft die Übereinstim- 
mung zwischen angegebenem Zeichen und 
dem, auf das der Textpointer zeigt. Bei Gleich- 
heit erfolgt ein Rücksprung über T CHRGET, 
ansonsten die Meldung „SYNTAX“. 

Vorher: TXTPTR = Zeiger auf zu prüfendes 
Zeichen; A = erwartetes Zeichen. 

Nachher: siehe T CHRGET. 


CHKCOM ($DEBE) - überprüft via F SYNCHR, 
ob ein Komma folgt. 


CHKOPN ($DEBB) - überprüft via ? SYNCHR, 
ob eine geöffnete Klammer folgt. 


CHKCLS ($DEB8) — überprüft via * SYNCHR, 
ob eine geschlossene Klammer folgt. 


8.2. Fehler 
8.2.1. Allgemeine Fehlerbehandlung 


ONERR1 ($F2D0) — setzt alle Zeiger für eine 
Fehlerbehandlung. 

Vorher: TXTPTR = Zeiger auf erstes Zeichen 
der Zeilennummer der Fehlerbehandlung (nach 
„GOTO“-Token). 

Nachher: OERRPNT ($00F4, $00F5) = 
TXTPTR; OERRLIN ($00F6, $00F7) = CURLIN 
($0075, $0076); ERRFLG ($00D8) >= $80: 
TXTPTR = Zeiger auf 1. Zeichen des nächsten 
Befehls. 


RESUME ($F318) — führt das Programm bei 
dem fehlerhaften Befehl fort, nachdem eine 
Fehlerbehandlung stattgefunden hat. 

Vorher: ERRLIN ($00DA, $00DB) = Zeilennum- 
mer, bei der der Fehler auftrat; ERRPOS 
($00DC, $00DD) = Zeiger auf Befehlsanfang; 
ERRSTK ($00DF) = Stackpointer vor erster 
Ausführung der fehlerhaften Zeile. 


ERROR ($D412) — gibt die dem Fehlercode 
entsprechende Fehlermeldung aus (siehe Feh- 
lertabelle) oder verzweigt zur Fehlerbehand- 
lung (T HANDLERR), abhängig von ERRFLG. 
Nach der Fehlerausgabe erfolgt ein A/S-Warm- 
start (T RESTART). 
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ThunderScan."” 


Ein neues optisches Lesegerät, das beliebige 
Vorlagen in MacPaint überträgt: Fotos, Zeich- 
‚nungen, Landkarten und Illustrationen werden 
in den Apple-Imagewriter eingespannt und von 
einem Lesekopf, der das Farbband ersetzt, 
abgetastet. 


Edit Scanner Tools 


Accelerator Ile macht 
Ihren Apple” II, II Plus oder Ile 
dreieinhalbmal schneller. 


















File 





ThunderScan'“ 












Jetzt laufen VisiCalc®, Apple Writer, PASCAL, BASIC, 
Datenbanken usw. endlich ohne langen Zeitverlust. 
Stecken Sie einfach die ACCELERATOR Ile Karte 
in irgendeinen Slot und beobachten Sie, 
wir Ihr Apple loslegt! 

ACCELERATOR Ile besitzt seinen eigenen schnellen 
6502 Prozessor und 80 K-Byte Hochgeschwindigkeits- 
speicher, einschließlich einer eingebauten schnellen 
Sprachkarte und schnellem RAM-Speicherplatz für die 
ROM-Sprache. 

Direkt von Pandasoft (Titan Distributor für Deutschland) 
oder bei Ihrem Applehändler. 


pPanday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


9) id ngc Druckerinterfaces für Apple II+/e/ 
Printer Interface c/II| Interfaces auf dem neuesten 
Stand der Technik. Kompatibel mit allen gängigen Druckern wie: 
APPLE, EPSON, STAR, NEC, OKIDATA usw. Passende Treiber- 


software wird über Dip-Switch ausgewählt. 


Grappier “> Grafikfähiges Druckerinterface 
Printer Interface 


. das keine Wünsche mehr offen läßt. 
Uber 2 Dutzend Kommandos ermöglichen die volle Kontrolle 

über alle Möglichkeiten Ihres 
Druckers. Jetzt auch mit 

lle Features: Double Hires 
Grafics und 80 Zeichen Dump 
mittels Druckerpuffer nachrüstbar 
über Bufferboard. 


Gras JEIF 


ten 16 K Druckpuffer, der auf 
32 oder 64 K aufrüstbar ist. 


Light_Intensity_Gauge 


vontg 
Contrast = 110% 


Brightness = +10 


[ Pause Quit Scan) 
sang = 









Lines to go. 186 








® 32 Graustufen 
@ 30 Punkte/cm Auflösung 
® Ubertragungsmaßstab 25% - ADO % 
® Vorlagen bis 20x25 cm 
® Nachträgliche Veränderung des Kontrasts 

und der Helligkeit. Thunder Sean 


Ppanday®ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 - Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 - Telex: 185 859 


wir haben die und die 
Hardware... 


PRLLERAER 





































N 


En Besitzt alle Vorzüge des Grappler +, 
hat aber zusätzlich einen integrier- 


ED) 






SERIAL Serielles Druckerinterface 
Grappler speziell für den Apple Image- 
Printer Interface writer. 
Seriell-nach-Parallel-Wandler für 
OTLINK den IIc im Kabel integriert. 
wie Hotlink, jedoch zusätzlich 


[RRAPPLER C -Imagewriter Emulation und Grafik 


Software-Diskette. 


pandaye@ft Dr.-Ing. Eden 


Uhlandstraße 195 - 1000 Berlin 12 : Mo-Fr 10-18 Uhr, Sa 10-13 Uhr 
Telefon: 0 30/31 04 23 : Telex: 185 859 








ER 2% RR, 


Fordern Sie unseren Gratiskatalo 
ALLES FÜR DEN APPLE II+, Ile, IIc UND MACINTOSH 


Panday®@ft:..... :- 


UHLANDSTR. 195 - D- 1000 BERLIN 12 
TEL.(O30) 310 423 - TELEX:185859 
Autorisierter app Fochhändler MICROSOFT. Distributor 
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Vorher: X = Fehlercode; ERRFLG ($00D8) = 
$00 für Fehlermeldung, ansonsten Sprung nach 
T HANDLERR. 


HANDLERR ($F2ES9) - setzt die Fehlerbehand- 
lungswerte ein und rettet die Zeiger für T RE- 
SUME. Danach wird T GOTO ausgeführt (Zei- 
lennummer auswerten, siehe T ONERRI1) und 
T NEWSTT aufgerufen. 

Vorher: X = Fehlercode; REMSTK ($00F8) = 
Stackpointer vor Ausführung der fehlerhaften 
Anweisung; OERRPNT ($00F4, $00F5) = Zei- 
ger auf Fehlerbehandlungszeile; OERRLIN 
($00F6, $00F7) = Zeilennummer der Fehlerbe- 
handlung. 

Nachher: ERRNUM ($00DE) = Fehlercode; 
ERRSTK ($00DF) = Stackpointer vor fehlerhaf- 
tem Befehl; ERRLIN ($00DA, $00DB) = Zeilen- 
nummer der fehlerhaften Zeile; ERRPOS 
($00DC, $00DD) = Zeiger auf fehlerhaften Be- 
fehl (durch F NEWSTT in OLDTPNT = $0079, 
$007A gerettet). 


ERRMSGE ($D419) — gibt in jedem Fall die 
dem Fehlercode entsprechende Fehlermeldung 
aus (siehe Fehlertabelle) und führt dann einen 
A/S-Warmstart durch ( T RESTART). 

Vorher: X = Fehlercode. 


INPRT ($ED19) - gibt „IN “ und die in CURLIN 
abgelegte Integer-Zahl via T STROUT aus. 
Vorher: CURLIN ($0075, $0076) = auszuge- 
bende Zahl. 


ERRDIR ($E306) — gibt „ILLEGAL DIRECT“ 
aus, falls kein Programm aktiv ist (Direktmodus). 
Vorher: CURLIN+1 ($0076) = $FF bei Direkt- 
modus. 

Nachher: A=;\Y=. 


8.2.2. Die Fehler im einzelnen 


BSSERR ($E196) — behandelt „BAD SUB- 
SCRIPT“ via F ERROR. 

DBZERR ($EAEI1) - behandelt „DIVISION BY 
ZERO" via T ERROR. 

FTCERR ($E430) — behandelt „FORMULA 
TOO COMPLEX“ via F ERROR. 

ILDERR ($E30B) — behandelt „ILLEGAL DI- 
RECT“ via ERROR. 

ILQERR ($E199) -— behandelt 
QUANTITY“ via F ERROR. 
NWFERR ($DDOB) - behandelt „NEXT WITH- 
OUT FOR“ via F ERROR. 

OODERR ($E1BC) - behandelt „OUT OF DA- 
TA“ via * ERROR. 

MEMERR ($D410) — behandelt „OUT OF ME- 
MORY“ via F ERROR. 

OVFERR ($E8D5) — behandelt „OVERFLOW“ 
via + ERROR. 

RWGERR ($D979) — behandelt „RETURN 
WITHOUT GOSUB“ via f ERROR. 

SYNERR ($DEC9) - behandelt „SYNTAX“ via 
} ERROR. 

TMMERR ($DD76) — behandelt „TYP MIS- 
MATCH“ via } ERROR. 

UDFERR ($E30E) — behandelt „UNDEF’D 
FUNCTION“ via f ERROR. 

UNDERR ($D97C) — behandelt „UNDEF’D 
STATEMENT“ via F ERROR. 


„ILLEGAL 


[ 
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Tabelle 
VALTYP 


INTFLAG 
SUBFLAG 
CMPFLG 
HCOLOR 


GBAS 
H2 

v2 
HMASK 


INVFLG 
COLOR 


Al 
A2 
LINNUM 


TEMPPT 
LASTPT 


TEMPST 
INDEX 
RESULT 


TXTTAB 
VARTAB 
FRETOP 


FRESPC 
MEMSIZE 


CURLIN 


OLDLIN 


OLDTXT 
DATPTR 
VARNAM 
VARPNT 
FORPNT 
CPRTYP 
DSCPTR 
VARLEN 
FAC2 
HIGHDS 
HIGHTR 
FAC3 
LOWTR 
FAC 


FACSIGN 


ARG 
SGNCPR 
STRING 
EXTRAFAC 
STRNG2 
TXTPTR 
RNDSEED 
LOCK 


ERRFLG 
ERRLIN 
ERRPOS 


ERRNUM 
ERRSTK 
HGRX 
HGRY 
HCOLOR® 
HGRINDX 


HPAG 


SCALE 
SHPTAB 
FIRST 
SPEEDZ 
TRCFLG 
ORMASK 
OERRPNT 
OERRLIN 
REMSTK 


der Zero-Page-Variablen (Auszug) 


- $11 - 
- $12 - 


- $14 - 


= $16 = 
- $IC - 


- $26 - 
- $2C - 
- $2D - 
- $30 - 


- $32 - 
- $3C - 


- $3C - 
- $3E - 
- $59 - 


- $52 - 
- $53 - 


- $55 - 
- $5E - 
- $62 - 


- $67 - 
- $69 - 
- $6F - 


- $71 - 
- $73 - 


- $75 - 
- $77 - 


- $79 - 
- $7D - 
- $81 - 
- $83 - 
- $85 - 
- $89 - 
- $8C - 
- $8F - 
- $93 - 
- $94 - 
- $96 - 
- $98 - 
- $9B - 
- $9D - 


- $A2 - 


- $45 - 
- $AB - 
- $AB - 
- $AC - 
- $AD - 
- $B8 - 
- $09 - 
- $D6 - 


- $D8 - 
- $DA - 
- $DC - 


= $DE 2 
- $DF - 
- $Eß - 
- $E2 - 
- $EA - 
- $E5 - 


- $E6 - 


- $E7 - 
- $ES - 


- $Fl - 
- $F2 - 
- $F3 - 
- $F4 - 
- $F6 - 
- $F8 - 


18 — 


17 - Variablentyp: $FF = String 
$00 = Zahl 

Integer-Flag: $80 = Integer 
$00 = Real 


d - 


22 - 
28 — 


38 -— 
44 — 
45 - 
48 - 


50 - 
6 - 


60 - 
62 - 
80 - 


82 - 
85 - 


85 - 
94 - 
98 - 


103 - 
105 - 
11l - 


113 — 
115 — 


117 - 


119 - 


121 - 
125 - 
129 - 
131 - 
133 - 
137 - 
140 - 
143 - 
147 - 
148 - 
150 - 
152 - 
155 - 
157 - 


162 -— 


165 - 
I71- 
171 - 
172 - 
173 - 
184 - 
201 - 
214 - 


216 — 
218 - 
22D - 


A222 — 
223 — 
224 — 
226 - 
228 — 
229 — 


230 - 


23l - 
Zar - 
240 - 
241 - 
242 — 
243 — 
244 — 
246 — 
248 - 


Flag für verschiedene Einschränkungen: 

z.B. keine Integer-Var. bei "FOR" 

Vergleich-Flag: >: 1, = : 2, >=:3 
<; A, -<>i 5, =: 6 

aktuelle HGR-Farbmaske (wird von 

Spalte zu Spalte invertiert) 

Basisadresse einer HGR-Zeile 

Endkoordinate bei HLINE ($F819) 

Endkoordinate bei VLINE ($F828) 

Bit-Maske: maskiert Pixel einer 

HGR-Spalte 

AND-Maske für Bildschirmausgabe 

Farbe für GR (besteht aus 2 

identischen Nibbles für oberen und 

unteren Block) 

Startadresse bei Tape-Routine 

Endadresse bei Tape-Routine 

16-Bit-Integer-Zahl (i.allg. 

Zeilennummer) 

Deskriptor-Stackpointer 

Zeiger auf letzten temporären 

Deskriptor 

Deskriptor-Stack (9 Bytes) 

allgemeiner Zeiger 

Ergebnis der letzten Multiplikation 

oder Division 

Zeiger auf Programmanfang 

Zeiger auf Variablenanfang (numerisch) 

Ende der String-Variablen 

(von oben nach unten) 

String-Zeiger bei temporären Strings 

höchste verfügbare Speicherstelle+l 

("HIMEM" ) 

Nummer der aktuellen Zeile 


MSB = $FF bei Direktmodus 
Nummer der letzten Zeile 


(für Ctrl-C, "RESUME" usw.) 
Zeiger auf letzten Befehl (s.o.) 
Zeiger auf aktuelle DATA-Position 
letzter Variablenname (2 Buchstaben) 
Zeiger auf letzte Variable 
allgemeiner Zeiger 
Vergleich-Flag 
Deskriptorenzeiger 
Variablenlänge bei Garbage-Collection 
weiterer FP-Akku neben FAC und ARG 
Ende des Zielbereichs bei Block-Transfer 
Ende des Quellbereichs bei Block-Trans. 
4. Fließkomma-Akku 
Beginn des Quellbereichs bei Block-Trans. 
Hauptfließkomma-Akku (mit einem 
zusätzlichen Mantisse-Byte) 
Vorzeichen von FAC: $ß® = positiv 
$80 = negativ 

zweiter Fließkomma-Akku 
gemeinsames Vorzeichen von FAC und ARG 
Zeiger für String-Verschiebung 
6. Mantisse-Byte für FAC 
allgemeiner Zeiger bei String-Verwaltung 
Zeiger auf aktuelle Programmposition 
Startwert des RND-Generators (5 Bytes) 
Auto-RUN-Flag: führt bei $89 jedes 
Kommando als "RUN" aus 
ONERR-Flag: führt bei $89 
Fehlerbehandlung aus 
Nummer der Zeile, bei der ein Fehler 
auftrat 
Zeiger auf Zeile, bei der ein Fehler 
auftrat 
Fehlernummer (siehe Fehlertabelle) 
Stackpointer vor Fehlerbehandlung 
X-Koordinate für HGR-Routinen 
Y-Koordinate für HGR-Routinen 
HGR-Farbmaske, auf erste Spalte bezogen 
HGR-Spaltennummer 
(Spalte enthält 7 Pixel) 
HGR-Seite: $29 Seite 1 

$40 = Seite 2 
SCALE-Wert 
Zeiger auf Shape-Tabelle 
PLOT-Parameter (1. Koordinate) 
Ausgabeverzögerung 
Trace-Flag: $80 = Trace-Modus 
OR-Maske für Bildschirmausgabe 
Zeiger auf ONERR-Zeile 
Nummer der ONERR-Zeile 
Stackpointer, der vor jedem Befehl 
gerettet wird 
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Fehlertabelle (Zur Vervollständigung der Tabelle ProDOS-BASIC.SYSTEM-Fehlernummern 
sind hier auch die Fehlernummern der 
Disketten-Betriebssysteme aufgeführt) 


$09 "NEXT WITHOUT FOR" $02 "RANGE ERROR" 

$19 ( 16) "SYNTAX" $93 "NO DEVICE CONNECTED" 
$16 ( 22) "RETURN WITHOUT GOSUB" DOS-3.3-Fehlernummern 504 "WRITE PROTECTED" 

$2A ( 42) "OUT OF DATA" $05 "END OF DATA" 

$35 ( 53) "ILLEGAL QUANTITY" $p91 1) —- "LANGUAGE NOT AVAILABLE" $06 "PATH NOT FOUND" 

$45 "OVERFLOW" $02 2) "RANGE ERROR" $08 "1/0 ERROR" 

$4D "OUT OF MEMORY" $03 3) "RANGE ERROR" $09 "DISK FULL" 

$5A "UNDEF'D STATEMENT" $94 4) "WRITE PROTECTED" $DA "FILE LOCKED" 

$6B "BAD SUBSCRIPT" $05 5) "END OF DATA" $OB "INVALID PARAMETER" 
$78 "REDIM'D ARRAY" $06 6) "FILE NOT FOUND" $oc "NO BUFFERS AVAILABLE" 
$85 "DIVISION BY ZERO" $97 7) "VOLUME MISMATCH'" $0D "FILE TYPE MISMATCH'" 


Applesoft-Interpreter-Fehlernummern 


$A3 "TYPE MISMATCH'" $09 
$B® "STRING TOO LONG" $DA 
$BF "FORMULA TOO COMPLEX" $0B 
$D2 "CAN'T CONTINUE" $oC 
$E® "UNDEF'D FUNCTION" $PD 
$FE falsche Eingabe nach INPUT $DE 
$FF Ctrl-C-Unterbrechung $OF 


9) "DISK FULL" $OF "NOT DIRECT COMAND" 
19) "FILE LOCKED" $19 "SYNTAX ERROR" 

11) "SYNTAX ERROR" $11 "DIRECTORY FULL" 

12) "NO BUFFERS AVAILABLE" $12 "FILE NOT OPEN" 

13) "FILE TYPE MISMATCH" $13 "DUPLICATE FILE NAME" 
14) — "PROGRAM TOO LARGE" $14 "FILE BUSY" 

15) — "NOT DIRECT COMMAND" $15 "FILE(S) STILL OPEN" 


( 
( 
( 
( 
( 
( 
( 
$95 "ILLEGAL DIRECT" $08 ( 8) - "I/O ERROR" $DE "PROGRAM TOO LARGE" 
( 
( 
( 
( 
( 
( 
( 


Tabelle der Schlüsselwörter (Token) Tabelle der aufgeführten 
Routinen 


END $A4A (164) LOMEM: numerisch 


FOR $A5 (165) ONERR 
NEXT $A6 (166) RESUME 
DATA $A7 (167) RECALL 
INPUT $A8 (168) STORE 
DEL $A9 (169) SPEED= 
DIM $AA (179) LET 
READ $AB (171) GOTO 
GR $ac (172) RUN 
TEXT $AD (173) IF 
PR# $AE (174) RESTORE $DA3C RESTART 
IN# $AF (175) & $DA5C NXTLIN 
CALL $Bß (176) GOSUB $DAF2 LINKSET 
PLOT $Bl (177) RETURN $D52C INLINE 
HLIN $B2 (178) REM $D52E INLINELl 
VLIN $B3 (179) STOP $D539 GDBUFS 
HGR2 $B4 (189) ON $D553 INCHR 
HGR $B5 (181) WAIT $D566 RUN 
HCOLOR= $B6 (182) LOAD $D56C PARSE 
HPLOT $B7 (183) SAVE $D61A FNDLIN 
DRAW $B8 (184) DEF $D61E FNDLINI 
XDRAW $B9 (185) POKE $D64B SCRTCH 
HTAB $BA (186) PRINT $D665 SETPTRS 
HOME $BB (187) CONT $D66C CLEARC 
ROT= $BC (188) LIST $D683 STKINI 
SCALE= $BD (189) CLEAR $D697 STXTPT 
SHLOAD $BE (199) GET $D6A5 LIST 
TRACE $BF (191) NEW $DECC MAINLST 
NOTRACE $cd (192) TAB ( $D7D2 NEWSTT 
NORMAL $c1 (193) TO $D828 GOCMD 
INVERSE $c2 (194) FN $D849 RESTORE 
FLASH $c3 (195) SPC( $D853 SETDA 
COLOR= $c4 (196) THEN $D858 ISCNTC 
POP $c5 (197) AT $D86E STOP 
VTAB $c6 (198) NOT $D879 END 
HIMEM: $c7 (199) STEP $D896 CONT 
$D8Bd SAVE 


$D8C9 LOAD 
$D8F® VARTIO 
$D9P1 PROGIO 
$D91B RUNLINE 
$D921 GOSUB 
$D935 GOLINE 
$D93E GOTO 
$D96B POP 
$D979 RWGERR 
$DI7C UNDERR 


+ 


$oQBl CHRGET 
$00B7 CHRGOT 
$D39A BLTU1 

$D3D6 CHKSTK 
$D3E3 REASON 
$D41® MEMERR 
$D412 ERROR 

$D419 ERRMSGE 


IvoproN\ntk 


HUN 
zn 
er 
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DATA 
ADDON 
DATAN 
REMN 
IF 

REM 
ONGOTO 
LINGET 
LET 
STRCPY 
CRDO 
STROUT 
STRPRT1 
OUTSPC 
OUTQST 
OUTDO 
NWFERR 
FRMNUM 
CHKNUM 
CHKSTR 
TMMERR 
FRMEVL 
GETVAL 
STRTXT 
PARCHK 
CHKCLS 
CHKOPN 
CHKCOM 
SYNCHR 
SYNERR 
VARL 
VARL1 
OR 

AND 
FALSE 
TRUE 
STRCMP 
PTRGET 
ISLETC 
NEWVAR 
BSSERR 
ILQERR 
OODERR 
MULT 
MULTI 
FREl 
GIVAYF 
SNGFLT 
ERRDIR 
ILDERR 
UDFERR 
STRINI 
STRSPA 
STRLIT 
PUTNEW 
FTCERR 
GETSPA 
GARBAG 
MOVINS 
MOVSTR 
FRESTR 
FREFAC 
FRETMP 
FRETMS 
GTBYTC 
GETBYT 
CONINT 
VAL 
GETNUM 
GETADR 
FADDH 
FSUB 
FSUBT 
FADD 
FADDT 
SIGNIF 
ZEROFAC 
OVFERR 
LOG 
FMULT 
FMULTT 
CONUPK 
MULT1® 
DIV19 
FDIV 
FDIVT 
DBZERR 
MOVFM 
MOVZF 
MOVIF 
MOVMF 


alphabetisch 


ABS 
ADDACC 
ADDON 
AND 
ATN 
BKGND 
BLTUl 
BSSERR 
CHKCLS 
CHKCOM 
CHKNUM 
CHKOPN 
CHKSTK 
CHKSTR 
CHRGET 
CHRGOT 
CLEARC 
COLDST 
CONINT 





$EBAF 
$ECD5 
$D998 
$DF55 
$FOYE 
$F3F6 
$D39A 
$E196 
$DEB8 
$DEBE 
$DD6A 
$DEBB 
$D3D6 
$DD6C 
$00B1l 
$00B7 
$D66C 
$F128 
$E6FB 


MOVFA 
MOVAF 
RNDB 
SIGN 
SGN 

ABS 
FCOMP 
QINT 
INT 

FIN 
ADDACC 
INPRT 
LINPRT 
PRNTFAC 
FOUT 
SQR 
FPWRT 
EXP 
ODDSER 
SERIES 
RND 

cos 
SIN 
TAN 
ATN 
COLDST 
PLOTFNS 
LINCOOR 
PLOT 
HLIN 
VLIN 
TRACE 
NOTRACE 
NORMAL 
INVERSE 
FLASH 
HIMEMIl 
LOMEM1 
ONERR1 
HANDLERR 
RESUME 
DEL 
STORE 
RECALL 
HGR2 
HGR 
HCLR 
BKGND 
HPOS 
HPLOT 
DECRX 
INVMASK 
INCRX 
DECRY 
INCRY 
GLIN 
HFIND 
DRAW 
DRAW1 
XDRAN 
XDRAW1 
HFNS 
HCOLOR1 
SHPFNS 
SHLOAD 


CONT 
CONUPK 
COS 
CRDO 
DATA 
DATAN 
DBZERR 
DECRX 
DECRY 
DEL 
DIV1® 
DRAN 
DRAW1 
END 
ERRDIR 
ERRMSGE 
ERROR 
EXP 
FADD 
FADDH 
FADDT 
FALSE 
FCOMP 
FDIV 
FDIVT 
FIN 
FLASH 
FMULT 
FMULTT 
FNDLIN 
FNDLIN]I 
FOUT 
FPWRT 
FREI 
FREFAC 
FRESTR 
FRETMP 
FRETMS 
FRMEVL 
FRMNUM 
FSUB 
FSUBT 
FTCERR 
GARBAG 
GDBUFS 
GETADR 
GETBYT 
GETNUM 
GETSPA 
GETVAL 
GIVAYF 
GLIN 
GOCMD 
GOLINE 
GOSUB 
GOTO 
GTBYTC 
HANDLERR 
HCLR 
HCOLOR1 
HFIND 
HFNS 
HGR 
HGR2 
HIMEMIl 
HLIN 
HPLOT 
HPOS 
IF 
ILDERR 
ILQERR 
INCHR 
INCRX 
INCRY 
INLINE 
INLINEl 
INPRT 
INT 
INVERSE 
INVMASK 
ISCNTC 
ISLETC 
LET 
LINCOOR 
LINGET 
LINKSET 
LINPRT 
LIST 
LOAD 
LOG 
LOMEM1 


- $D896 
- $E9IE3 
- $EFEA 
- $DAFB 
$D995 
$D9YA3 
$EAELl 
$F467 
$F4D5 
$F331 
$EA55 
$F6Q1 
$F605 
$D878 
$E306 
$D419 
$D412 
$EFO9 
$E7BE 
$ETA® 
$ETC1 
$DF5D 
$EBB2 
$EA66 
$EA69 
$ECAA 
$F280 
$E9TF 
$E982 
$D61A 
$D61E 
$ED36 
$EE97 
$E2E5 
$ESPB 
$E5SFD 
$E694 
$E635 
$DD7B 
$DD67 
$E7A7 
$ETAA 
$E439 
$E484 
$D539 
$E752 
$E6F8 
$E746 
$E452 
$DE6S® 
$E2F2 
$F53A 
$D828 
$D935 
$D921 
$D93E 
$E6F5 
$F2E9 
$F3F2 
$F6EC 
$F5CB 
$F6B9 
$F3E2 
$F3D8 
$F28C 
$F232 
$F457 
$F4ll 
$D9c9 
$E3QB 
$E199 
$D553 
$FABA 
$F504 
$D52C 
$D52E 
$ED19 
$EC23 
$F277 
$FATE 
$D858 
$EßTD 
$DA46 
$F299 
$DABC 
$D4F2 
$ED24 
$D6A5 
$D8C9 
$E941 
— $F2AC 


MAINLST 
MEMERR 
MOVIF 
MOVZF 
MOVAF 
MOVFA 
MOVFM 
MOVINS 
MOVMF 
MOVSTR 
MULT 
MULTI 
MULT1® 
NEWSTT 
NEWVAR 
NORMAL 
NOTRACE 
NWFERR 
NXTLIN 
ODDSER 
ONERR1 
ONGOTO 
OODERR 
OR 
OUTDO 
OUTQST 
OUTSPC 
OVFERR 
PARCHK 
PARSE 
PLOT 
PLOTFNS 
POP 
PRNTFAC 
PROGIO 
PTRGET 
PUTNEN 
QINT 
REASON 
RECALL 
REM 
REMN 
RESTART 
RESTORE 
RESUME 
RND 
RNDB 
RUN 
RUNLINE 
RWGERR 
SAVE 
SCRTCH 
SERIES 
SETDA 
SETPTRS 
SGN 
SHLOAD 
SHPFNS 
SIGN 
SIGNIF 
SIN 
SNGFLT 
SQR 
STKINI 
STOP 
STORE 
STRCMP 
STRCPY 
STRINI 
STRLIT 
STROUT 
STRPRT1 
STRSPA 
STRTXT 
STXTPT 
SYNCHR 
SYNERR 
TAN 
TMMERR 
TRACE 
TRUE 
UDFERR 
UNDERR 
VAL 
VARL 
VARL1 
VARTIO 
VLIN 
XDRAN 
XDRAW1 
ZEROFAC 


$DECC 
$D41® 
$EB21 
$EBlE 
$EB63 
$EB53 
$EAF9 
$E5SDA 
$EB2B 
$ES5E2 
$E2AD 
$E2B8 
$EA39 
$D7D2 
$EPIC 
$F273 
$F26F 
$DD®B 
$D45C 
$EF5C 
$F2D® 
$DIEC 
$ElBC 
$DF4F 
$DB5C 
$DB5A 
$DB57 
$ESD5 
$DEB2 
$D56C 
$F225 
$FIEC 
$D96B 
$ED2E 
$D9P1 
$DFE3 
$E42A 
$EBF2 
$D3E3 
$F3BC 
$D9DC 
$D9YA6 
$DASC 
$D849 
$F318 
$EFAE 
$EB72 
$D566 
$D91B 
$D979 
$D8Bd 
$D64B 
$EF72 
$D853 
$D665 
$EB9d 
$F775 
$F72D 
$EB82 
$ES2E 
$EFF1 
$E3@1 
$EE8D 
$D683 
$D86E 
$F39F 
$DF7D 
$DAYA 
$E3D5 
$E3E7 
$DB3A 
$DB4l 
$E3DD 
$DES1 
$D697 
$DEC® 
$DECY 
$FOZA 
$DD76 
$F26D 
$DF6P 
$E3dE 
$D97C 
$E797 
$DED5 
$DEE9I 
- $D8Fd 
— $F241 
- $F65D 
- $F661 
- $E84E 
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Richtlinien für Autoren 


1. Rechtliches 


Der eingereichte Beitrag muß frei von 
Rechten Dritter sein, d.h. er darf noch 
nicht anderweitig veröffentlicht oder zur 
Veröffentlichung angeboten worden 
sein. Bei Kleinzitaten aus fremden Auf- 
sätzen und/oder Programmen muß die 
Quelle deutlich vermerkt werden. Bei 
absichtlich oder fahrlässig verschwiege- 
nen Zitaten liegt die urheberrechtliche 
Haftung bei Ihnen. Beiträge mit Großzi- 
taten, z.B. kompletten Fremdprogram- 
men, werden nicht angenommen. 

In ein Programm darf kein amerikani- 
scher Copyright-Vermerk und keine An- 
schrift eingefügt werden. Verwenden 
Sie statt dessen die deutsche Form 
„Von Vorname Name, Jahr“. 

Sie übertragen uns bezüglich Ihres Bei- 
trages das ausschließliche Recht der 
Vervielfältigung und Verbreitung in jeder 
Form als Schriftwerk und Datenträger. 
Bei Programmen bedeutet dies konkret, 
daß sie nicht nur in Druck-, sondern 
auch in Diskettenform (Peeker-Sam- 
meldiskette) vertrieben werden. Die 
Rechtsübertragung findet selbstver- 
ständlich erst mit unserer schriftlichen 
Zusage der Inverlagnahme statt. Solan- 
ge diese Zusage noch nicht erfolgt ist, 
kann ein Beitrag jederzeit zurückgezo- 
gen werden. 


Das Honorar beträgt einheitlich DM 
200,- pro Druckseite für Texte, Listings 
sowie reproduktionsfähige Bildmateria- 
lien, was die Honorierung für die Sam- 
meldiskette einschließt. Von uns erstell- 
te plakative Einstiegsseiten mit Zierbil- 
dern usw. werden nicht honoriert. Im 
Falle eines Reprint-Sammelheftes ver- 
güten wir nochmals DM 50,- pro Druck- 
seite. Bei sehr umfangreichen Beiträ- 
gen oder bei Programmen, die aus 
Platzgründen nur auf die Sammeldisket- 
te aufgenommen werden können, er- 
folgt die Honorierung nach Vereinba- 
rung. 


Bei der Einreichung des Manuskriptes 
vermerken Sie bitte, ob Sie mit diesen 
„Richtlinien für Autoren“ einverstanden 
sind. Es genügt, wenn Sie uns den Auf- 
satz zunächst in Papierform zusenden. 
Ein Vorspann, aus dem Inhalt und 
Zweck des Themas hervorgehen, be- 
schleunigt die Prüfung. Zur endgültigen 
Entscheidung über die Annahme benö- 


Peeker 12/85 


tigen wir allerdings die kompletten Un- 
terlagen. Im Falle eines Programms 
spezifizieren Sie bitte sehr genau dieje- 
nige Konfiguration (II+/e/c, Nachbau 
XYZ; FX-80, Imagewriter;, DOS 3.3, 
ProDOS, Pascal 1.2, Turbo 3.0; Videx, 
64K-Karte usw.), auf der Sie das Pro- 
gramm persönlich getestet haben. Ge- 
ben Sie niemals eine Ihnen nicht ver- 
fügbare Konfiguration an. 


2. Satzverfahren 


Alle Aufsatztexte und Programmlistings 
des Peekers werden komplett auf dem 
Apple Ille/c für die Satzanlage als ko- 
dierte ASCII-Dateien aufbereitet und di- 
rekt auf Film belichtet. Wie Sie einem 
Peeker-Heft unschwer entnehmen kön- 
nen, gibt es zwei Arten von Texten: 


Aufsätze 

Hierzu benötigt die Satzanlage Texte, 
bei denen nur die Absätze durch Re- 
turns abgeschlossen werden, denn die 
Silbentrennung und das Ausschließen 
auf Zeilenbreite (= Zeilenumbruch) er- 
folgt vollautomatisch durch den Satz- 
computer. In Aufsatztexten haben die 
Schriftzeichen unterschiedliche Dickten 
(= Buchstabenbreiten). 


Listings 

Hierzu benötigt die Satzanlage Texte, 
bei denen alle Zeilen durch Returns ab- 
geschlossen werden, denn das Silben- 
trenn- und Ausschließprogramm wird 
hier vom Satzcomputer nicht aktiviert. In 
Listings haben die Schriftzeichen glei- 
che Dickten (= Buchstabenbreiten). 
Obwohl die Listings auf den ersten Blick 
wie Schreibmaschinentexte aussehen, 
werden sie in Wirklichkeit in einer spe- 
ziellen Druckschrift gesetzt, die ein ge- 
stochen scharfes Schriftbild liefert. 


Aufsatztexte und Listings sollten als 
DOS-3.3-formatierte Disketten (35 
Spuren) eingereicht werden. Macin- 
tosh-Disketten müssen zuvor konver- 
tiert werden. Nur in Sonderfällen, etwa 
bei Grundsatzaufsätzen branchenfrem- 
der Spezialisten, genügt das Papierma- 
nuskript. 


2.1. Aufsatz 


Für den Aufsatztext benötigen wir einen 
DOS-3.3-Textfile, der mit einem belie- 
bigen Textverarbeitungsprogramm er- 


stellt werden kann. Da viele Autoren 
den (zeilenorientierten) Pascal-Editor 
verwenden, akzeptieren wir auch sol- 
che Textfiles; die unerwünschten Re- 
turns entfernen wir hier selbst. Für die 
DOS-Konvertierung von CP/M-, Pro- 
DOS- und Pascal-Textfiles können Sie 
bei Bedarf unsere Konvertierungspro- 
gramme verwenden. Beachten Sie, daß 
wir in der Redaktion nur den Applewriter 
besitzen, d.h. wir haben keinen Word- 
star USW. 

Schreiben Sie den Text so, wie ihn die 
Satzanlage liebt, d.h. völlig schmucklos 
ohne Unterstreichungen, ohne Einrük- 
kungen von Überschriften, ohne Steu- 
erzeichen für den Matrixdrucker usw. 
Dies ist im übrigen für Sie auch viel 
einfacher und schneller. Textstellen, die 
später halbfett oder kursiv erscheinen 
sollen, markieren Sie mit Farbstiften auf 
dem Papierausdruck. Die Kodierung ist 
dann unsere Angelegenheit. Legen Sie 
statt dessen Ihr Augenmerk auf Ortho- 
graphie, Interpunktion, Grammatik, Stili- 
stik, (dezimalklassifikatorische) Gliede- 
rung und terminologische Einheitlich- 
keit. 

Überschlägige Umfangsberechnung: 
Eine Druckseite umfaßt etwa 6.000 Zei- 
chen brutto und unter Berücksichtigung 
der Zwischenüberschriften und Leer- 
zeilen zwischen größeren Absätzen et- 
wa 5.000 Zeichen netto. 


Tabellen und sonstige tabellarische 
Übersichten sind für uns nach wie vor 
ein Problem. Beachten Sie folgende Lo- 
gik: Der Satzcomputer verwandelt bei 
Aufsatztexten — im Gegensatz zu Li- 
stingtexten — jede Folge von mehreren 
Leertasten in eine Leertaste, wodurch 
die Spalten einer Tabelle alle nach links 
rutschen würden. Wegen der unter- 
schiedlichen Dickten wären nämlich 
Mehrfach-Leertasten zwecklos. Schrei- 
ben Sie deshalb Tabellen so, wie sie 
aussehen sollen, d.h. mit mehrfachen 
Leertasten zwischen den Spalten, und 
speichern Sie sie als gesonderte Text- 
files ab. Diese Tabellen werden dann 
von uns entweder mit Tabulatoren ko- 
diert oder in Schreibmaschinenschrift 
belichtet. 


Technische Zeichnungen legen Sie 
so maßstabsgetreu wie möglich an. Sie 
werden von uns jedoch im Atelier um- 


gezeichnet, so daß gut lesbare Frei- 
handzeichnungen genügen. 


2.2. Listing 


Für die Listings benötigen wir lediglich 
die Programmdiskette, da wir die Aufbe- 
reitung für die Satzanlage selbst vor- 
nehmen. Programme mit englischen 
Menü-Texten und Kommentaren müs- 
sen leider zurückgewiesen werden. 
Listings werden von uns normalerweise 
zweispaltig gesetzt (maximal 65 Zei- 
chen/Zeile), gelegentlich dreispaltig 
(maximal 39 Zeichen/Zeile). Aus Platz- 
gründen können Listings mit mehr als 
65 Zeichen/Zeile in der Regel nicht 
mehr angenommen werden. 
Überschlägige Umfangsberechnung: 
Eine Spalte enthält maximal 90 Zeilen, 
beim üblichen zweispaltigen Satz also 
maximal 180 Zeilen. 


Für die verschiedenen Programmier- 
sprachen gilt: 

Basic-Programme: Verstecken Sie 
keine Ctrl-Zeichen in REM-Zeilen usw., 
denn diese müssen von uns dann ma- 
nuell entfernt werden. Verwenden Sie 
wegen der beim Satz automatisch vor- 
genommenen Freistellung der Zeilen- 
nummern nur solche mit gleicher Stel- 
lenanzahl (bei kleinen Programmen Re- 
number ab Zeile 10, bei mittelgroßen ab 
Zeile 100, bei großen ab Zeile 1000). 
Falls möglich, bitte REM-Kommentare 
und Menü-Texte in Großkleinschrift. 
Assembler-Programme: Schreiben 
Sie am besten mit einem 40-Z/Z-Editor, 
da dann einschließlich der Opcodes ei- 
ne Zeilenbreite von maximal 65 Zei- 
chen/Zeile erreicht werden kann. Wir 
bevorzugen den Big-Mac- bzw. Merlin- 
Assembler, weil wir hierzu spezielle 
Programme für das Assemblieren auf 
Diskette (statt auf den Drucker) entwik- 
kelt haben. Im Interesse der Kompatibi- 
lität mit anderen Assemblern sollten 
Macros vermieden werden. Kommenta- 
re möglichst in Großkleinschrift, alles 
übrige in Großschrift. 
Pascal-Programme: Auch für Pascal- 
Programme gilt eine Zeilenbreite von 
maximal 65 Zeichen/Zeile. Falls mög- 
lich, bitte eckige und geschweifte Klam- 
mern verwenden und statt dessen auf 
Umlaute verzichten. Bei Programmen 
für Anfänger Schlüsselwörter bitte in 
Großbuchstaben schreiben. 
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CP/M-56K-RAM-Disk 
unter Turbo-Pascal 


Ergänzung zum Aufsatz 
„Apple-CP/M“ aus Peeker, Heft 6/1985 


von Bernd Eichinger-Wieschmann 


Das nachfolgende Programm soll dem 
Turbo-Pascal-Besitzer eine einfache und 
unkomplizierte Installiercung des RAM- 
Disk-Drivers aus dem o.g. Aufsatz ermög- 
lichen. Das Turbo-Programm RAMDISK- 
‚PAS erzeugt einen COM-File, der aus 
dem CP/M-Betriebssystem heraus mit 

> RAMDISK Return 

direkt gestartet werden kann und eine 
RAM-Disk „C:*“ auf der 64K-Karte des 
Apple Ile anlegt. 

Es wurden von mir keine Veränderungen 
auf maschinensprachlicher Ebene vorge- 
nommen. Daher sind die in dem Artikel 
von K.-W. Bott getroffenen Aussagen 
nach wie vor gültig. Insbesondere beachte 
man, daß der Driver nur für CP/M-2.2- 
S6K, also nicht für 60K- oder 64K-CP/M- 
Versionen, gedacht ist, weil die eine Bank 
der unteren Language-Card in den RAM- 
Disk-Speicher mit einbezogen wird. 


Von den Listings wurde nur der Hexcode, 
jeweils die zweite Spalte im Listing, über- 
nommen und in Turbo-Pascal eingebettet. 
Für einen erfahrenen Programmierer dürf- 
te es kein Problem sein, dieses Pascal- 
Programm direkt mit einem Debugger in 
einen Assembler-File umzuwandeln. Mir 
ging es vielmehr darum, die Möglichkeiten 
eines modernen Compilers aufzuzeigen. 
In den meisten „Hochsprachen“ ist es 
nämlich normalerweise schwierig oder gar 
unmöglich, Maschinenprogramme in den 
Quelltext einzubinden. Turbo-Pascal 
macht hier trotz der Inline-Prozedur keine 
Ausnahme. Es bietet dafür aber andere 
Befehle, die diese Einschränkung wieder 
wettmachen. 


Typisierte Konstanten 


Und nun zum Programm selbst: Zunächst 
wird der gesamte Hexcode in jeweils ge- 
trennten Feldern abgelegt. Da in Turbo- 
Pascal die sog. typisierten Konstanten im- 
plementiert sind, bereitet dies keine 
Schwierigkeiten. Darunter sind Variablen 
zu verstehen, dienach „CONST“ definiert 
und mit einem bestimmten Wert initialisiert 
werden. 
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Der erste Grund für den Einsatz der typi- 
sierten Konstanten liegt in der Syntax: Da 
sie im Vereinbarungsteil stehen müssen, 
sind am Anfang eines Programms oder 
einer Prozedur schon wichtige Variablen 
bekannt. Ein Beispiel zeigt das Programm 
TEST1. Beim Programmstart wird der typi- 
sierten booleschen Konstanten WAHR der 
Wert TRUE zugewiesen. Daher hat sie 
schon beim Start einen bekannten Inhalt 
und muß diesen nicht erst im eigentlichen 
Programm erhalten. 

Der zweite Grund ist die Einsparung von 
Programmcode: Während TEST1 (im RAM 
compiliert) eine Größe von 116 Bytes ein- 
nimmt, bringt es TEST2 auf 119 Bytes. Bei 
einer großen Zahl von Zuweisungen 
macht sich dies bemerkbar. 


Da es sich bei den Feldinhalten von Ram- 
Init, AuxDriver, MoveDriver und Formatter 
um Objektcode handelt, müssen diese als 
Hexwerte in den Feldern abgelegt werden, 
also mit führendem „$“. 

Nun folgt die einzige Prozedur des Pro- 
gramms. Die Prozedur „Brun“ startet ein 
6502-Programm, das an einer beliebigen 
Stelle im Speicher steht. An „Adresse“ 
wird die Startadresse des auszuführenden 
Programms übergeben. Da es in Turbo- 
Pascal keinen Assembler gibt, muß diese 
Routine zum Starten als Inline-Prozedur 
geschrieben werden. Inline akzeptiert nur 
Hexzahlen oder — wie in diesem Fall — 
typisierte Konstanten. Da an die Prozedur 
der Wert „Adresse“ nicht als VAR-Para- 
meter übergeben werden kann, erhält 
„Adresse“ nur einen Zeiger auf den tat- 
sächlichen Inhalt. Der Inhalt, auf den 
„Adresse“ zeigt, wird nun dem Z80-Regi- 
ster HL zugewiesen. Der Rest entspricht 
dem SWITCHDEMO von K.-W. Bott 
(Peeker 6/85, S. 57). 


Das Hauptprogramm 


Zunächst wird der Bildschirm gelöscht und 
eine Meldung ausgegeben, um dem An- 
wender zu zeigen, daß die RAM-Disk als 
Laufwerk „C:“ installiert wird. Nun werden 


mittels „Move“ die entsprechenden Fel- 
der an ihren Platz im RAM „geschoben“. 
Da zwischen CP/M- und DOS-Adressen 
ein Versatz von $1000 Bytes besteht, 
müssen die Adressen entsprechend an- 
gepaßt werden (s. Peeker 6/85, S. 56). 
Mit Brun werden nun diese „Felder“ ge- 
startet. Das letzte Feld wird, da es ein CP/ 
M-Programm darstellt, mit der letzten In- 
line-Prozedur ab 0100h gestartet, wie dies 
bei CP/M-Programmen üblich ist. Da aber 
auch der Turbo-Runtime-Kern ab 0100h 
beginnt, wird dieser zwangsläufig zerstört. 
Dies ist nicht weiter tragisch, da Ramlnit 
von sich aus zu CP/M und seinem CCP 
zurückkehrt. 


Compilierung von RAMDISK.PAS 


Nach dem Starten von Turbo-Pascal und 
der Eingabe des Listings von RAMDISK- 
‚PAS wähle man über „O“ für Compiler- 
Optionen „C“ für COM-File (= direkte 
Compilierung auf Diskette). Den fertigen 
COM-File starte man dann aus dem CP/ 
M-Betriebssystem heraus mit 

> RAMDISK Return. 


Kurzhinweise 


1. Zweck: 

Installierung einer RAM-Disk unter CP/M 
2. Konfiguration: 

Ile mit erweiterter 80-Zeichenkarte; 

CP/M 2.20 56K mit Turbo-Pascal 2.0 oder 
3.0 

3. Test: 

RAMDISK.PAS direkt auf Diskette compi- 
lieren und später unter CP/M mit 
RAMDISK 

starten. 

4. Sammeldisk: 

RAMDISK.PAS 

Vorkodierter Quelltext zur Übertragung mit 
APDOS: 

a) APDOS von Drive A starten 

b) Sammeldisk in Drive B einlegen 

c) RAMDISK.PAS=RAMDISK.PAS ein- 
geben 

d) Danach unter Turbo-Pascal direkt com- 
pilierfähig 
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TEST 1 


Program Testl; 


Const Wahr: Boolean = True; {typisierte Konstante} 


Var Ch: Char; 
Begin 
Repeat 
Write ("Weiter J/N '); 
Readln (Ch); 
If Ch = 'N' 
Then Wahr := Not Wahr; 


Until Not Wahr; 
End. 


TEST 2 
Program Test2; 


Var Wahr: 
Ch: 
Begin 
Wahr := True; 
Repeat 


Boolean; 
Char; 


Write ('Weiter J/N '); 


Readln (Ch); 
If Ch = 'N' 
Then Wahr 
Until Not Wahr; 
End. 


RAMDISK.PAS 


Program RAMDISK; 


:= Not Wahr; 


{Installiert RAM-Disk unter CP/M als 
{Die Felder entsprechen den Routinen 


Const 


RamInit: Array [1..173] of Byte = 


($21,$83 ,$DA, $22,$5D 
‚$CA,$1B,$01,$25,$90A 


‚$70,$FC,$01, 
‚$13,$03,$37, 
‚$20,$19,$9E, 
‚$C9,$4C,$00, 
‚$06,$8C,$08, 
‚$08,$0C0,$85, 
‚988,$D9,$F9, 
‚03,$97,$99, 


$44, 
$01, 
$AD, 
$FF, 
$oC, 
$06, 
$49, 
$3F 


$81 


AuxDriver: Array [l. 
$CE, 
$06, 
934, 
$AD, 
$Bl, 
$04, 
$85, 
$OB, 
$69, 


($A9,$00,$85, $85 
‚$c0,$FF,$D®, 
‚$03,$6A,$B9, 
‚$CF,$AQ,$09, 
‚$4C,$97,$9C, 
‚502 ,$C9,$8D, 
‚$CF,$A9,$08, 
‚$Eß,$03,$C9, 
‚$8D,$C®,$FF, 
‚$C9,$0C,$F9,$97, 
‚$A9,$EB,$AC,$7C, 
‚$FF,$A9Y,$FQß,$AC, 
‚$00,$AD,$CQ9,$FF,$29 
‚$A9,$00 ,$8D,$BF,$FF 
‚$83,$C9,$69,$9®); 


$c9 


MoveDriver: Array [l 


($8D,$09,$CQ,$A9,$09 
‚$FF,$85,$93,$AD,$8B 
‚$91,$92,$88,$D®,$F9 
‚$81,$C9,$69,$®1); 


Formatter: Array [l. 


($8D,$05,$00,$A9,$98 
‚$A9,$03,$85,$CF,$A9 
‚$AD,$8B,$09,$A9,$D9 
‚$AD,$8B,$C9,$AD,$8B 
‚$09,$C9,$A9,$D9,$85 
‚$E®,$85,$CF,$A9,$09 
‚$81,$C9 ,$8D,$08,$C9 
‚$CF,$CA,$D®,$F6 ,$60 
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‚sı2 
‚$12,$13,$3E,$79,$12, 
$01, 
$AD, 


$8D, 
$A4, 
$AD, 
$09, 
‚500, 


$8E, 
$68, 
$E3, 
$CE, 
$cPQ, 
$07, 
$19, 


$c9, 
$FF, 
576, 


‚$DA,$11, 
‚$03, 
$3E, 
$59, 
$cPQ, 
$28, 
$cp, 
$8D, 
‚$cQ, 
$EA, 
‚$09, 


$13, 
$26, 
$83, 
‚$cQ, 
$08, 
$07, 
$8B 
$8D, 
$IF 


.228] of 


‚$06, 
$EA, 
$8D, 
$FF, 
$91, 
$Aac 
$ac, 
$QE, 
‚$sorF, 
$0B, 
$AD, 
$FF, 
‚$F®, 
‚$AD, 


$El 
$A9 


$8B 


.‚B2] of 


‚$85,$09, 
‚$C®,$AD, 
‚$E6,$®1, 


‚iiri of 


‚$85,$CF, 
‚$00,$85, 
‚$85,$CF, 
‚$00,$29, 
‚$SCF,$A9, 
‚$85,$CE, 
‚$69,$AQ, 


I 


SAD, 
$93, 
$92, 
$c9, 
$p6, 
‚$99, 
531, 
$DA, 
$Fß, 
$Dp, 
‚$93, 
‚$09, 
$c9, 
‚$c9, 


$83, 
$13, 
$ocC, 
$TC, 
$AD, 
$69, 
$AD, 
$98, 
$AD, 
$93, 
$89, 


$DA, 
$c3, 
$12, 
$B7, 
$AE, 
$8D 
$81, 
$cpQ, 
$8B, 
$AD, 
$09, 


Byte = 


$Eß,$93, 
$AC,$4AF, 
$CQ,$8D, 
$OF,$DP, 
$88,$DP, 
$0C,$68, 
$FF,$A2 
$DA,S$DA, 
$19,$C9, 
$1E,$8E, 


$D9,$FQ, 


$AD, 


Byte = 


$A9,$99, 
$8B,$CPp, 
$E6,$93, 


Byte = 


$A9,$09, 


$CE,$A2 


$A9Y,$09, 
$3F,$99, 
$00,$85, 
$A2,$1F, 
$00,$A9, 


$c9, 
$8D, 


Drive C:} 
aus Heft 6/85, 


$01,$9E,$01 


$DE, 
$11, 
$CA, 
$FE, 
‚509, 
$cp, 
$85, 
$cp, 
$81, 
$09, 


$8D, 
$FF, 
$05, 
$09, 
$F9, 


$8D 


$85 


$AE, 
$SCA, 


$85, 
‚$@1, 
$85, 
$AD, 
$CE, 
$29, 
$E5, 


$01, 
$B8, 
$09, 
$c9, 
$cp, 
$6P9, 
$CE, 
$Aß, 
$c9, 
$09, 


$E3, 
$48, 
$cP9, 
‚$02, 
$09, 
$cp, 
‚$0®, 
$08, 
$19, 
$49, 
$05, 
‚$8D, 
$AD, 
$69, 


$8D 


$49, 
‚993, 
‚$@1, 
$DA, 
$OE, 
$BF, 
$OF, 
$BF, 
$01, 
$8B, 


$A9 


$99, 
$Fß, 
$FF, 
$Dp, 


$FF 


569, 
$cQ, 


‚901, 
$33, 
$D9, 


$CE, 
$29, 
$CE, 
$83, 


$A2 
$66 


$91, 


$1l 
$F3 
$00 
$02 
$AD 
$A5 
$86 


509, 
569, 
509, 


$FF, 
$29, 


$85 


$49, 
$95, 
$F2, 


$a2, 
$66, 


$A2 


$cp, 
‚$1®, 
‚$99, 
$CE, 


‚$26 


‚503, 


‚$3E 
‚$25 
‚$F® 
‚$83 
‚$CE 
‚$SCF 
$Bl 
$09 
$99 


$8D 


$c9 


$A9 


$8D 


$8D 


$29, 
$c1, 
‚597, 
$cp, 
$8D, 


$8D, 
$18, 


$DP, 


$09, 
SAP, 


$B8, 
$99, 
‚$1ß, 
$AD, 
$29, 


588 ’ 


‚$OF, 
$FE, 
‚$93, 
‚$PA, 
‚$DA, 
‚sch, 
‚$A6, 


‚584 


‚$sCE, 
‚$FF, 


13 


$8D 


$FF 


$83 


$29 
$AD 
$29 
$83 
$66 
‚504 
$D® 


Procedure Brun (Adresse: Integer); 
{ruft Unterprogramm ab Adresse auf } 
Begin 
Inline ($2A/Adresse/ 
$22/$DO/$F3/ 
$2A/$DE/$F3/ 
$77); 


{LD HL, (Adresse)} 
{LD (Vec),HL} 

{LD HL, (CPU)} 

{LD (HL),A} 

End; 


Begin 


568, 
$FF, 
$49, 


$EA, 
‚504, 
$BF, 
$6D, 
‚$oD, 
$ac, 
‚$03, 
$cp, 
$BF, 
$AD, 


$FF, 


$85, 
$09, 
‚908, 


ff.) 


$El 


$Bl 


‚$66 


876, 
$3E, 
$12, 
$12, 
$08, 
$AD, 
$CF, 
‚$07, 
$91, 
$29, 


$FF, 
SAD, 
$08, 
‚504, 
$03, 
$co, 
$FF, 
‚903 
$FPß, 
STC, 
$ac, 
‚$69, 
$FPß, 
‚$cQ, 


$02, 
‚$09 
SCH, 


$B7 
$Aac 
$11l 
$93 
578 
$83 
$A4A 
$AD 
$06 
$09 


$AD 
$EB 
$85 
$c9 
$8D 
$85 
$AD 


$19 
$FF 
$89 
$09 
$oC 
$AD 


$A9 


$AD 


‚599 
‚$8B, 
‚966, 
‚Sch, 
‚90, 
‚SCcQ, 
‚$FB, 


$c9 
$90 
$8D 
$A9 
$AD 
$E6 





Clrscr; 
Writeln 
('Pseudo-Disk wird als Laufwerk C: installiert'); 
Move (AuxDriver, Mem [$8ß09],228); 
{AuxDriver nach $9ß@@, DOS} 
Move (MoveDriver, Mem [$85®9],52); 
{MoveDriver nach $95@®, DOS} 
Brun ($95ßß); 
{Run MoveDriver} 
Move (Formatter, Mem [$8@@9],117); 
{Formatter nach $9@@9, DOS} 
Brun ($9999); 
{Run Formatter} 
Move (RamInit,Mem [$1®9],173); 
{RamInit nach @1lß@h, CP/M} 
Inline ($C3/$@9/$®1); 
{JP ®1®@h startet Ramlnit} 
{Kann nicht mehr zurueck!} 


640 KByte-Drives für den Apple //c!! 


@ 5'/- od. 31/-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 35/40 Track 

® Anschluß an die externe Laufwerkbuchse 

® Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 

® Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
durch menügeführten Patch 

@ Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
in Vorbereitung 


® anschlußfertig im Gehäuse DM 1090,— 


Festplatten für Apple Il (//e) 


@ 5'/4 Zoll-Format (Slimline) 

@ Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 
PRODOS und CP/M 2.2 / 3.0 

@ Gemischtbetr. mit 35/40/80/160 Track-Drives 

@ Copy- und Install-Programme im Lieferumfang 

® Umfangreiches Manual 

® z.B. 10 MB incl. Netzteil u. Contr., 


anschlußfertig an Ihren Apple DM 3380,— 


640 KByte-Drives für Apple Il (//e) 


@ 5'/4- od. 3/2-Zoll-Format (Teac FD55/35-F) 

@ FD55-F umschaltbar auf 40 Track (Apple kompatible) 

@ Installationssoftware für DOS 3.3, UCSD-Pascal, CP/M 2.2, 
CP/M 2.23 (60K), PRODOS, AP22, ALS CP/M+ 

® Umfangreiches Handbuch 

® Anschlußfertige Auslieferung incl. Contr. und 2 Drives 


@ Diskstation 55ll (2 Teac FD55-F, 1.2 MB) 
@ Diskstation 351l (2 Teac FD35-F, 1.2 MB) 


DM 1350,— 
DM 1478,— 


80 Zeichen + 64 K für Apple //e 


@® und jetzt hinsetzen . . . . DM 138,— 
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Kleine Mikrocomputer- 
hronik 1964 —1985 





zusammengestellt von Ulrich Stiehl 


Die nachfolgende Chronik be- 
schreibt die wichtigsten Ereignisse 
der Mikrocomputer-Ära unter be- 
sonderer Berücksichtigung der 
Apple-Computer-Entwicklung. Die 
zeitliche Zuordnung ist nicht immer 
problemlos, da zwischen der An- 
kündigung und dem Erscheinen ei- 
nes Mikrocomputers Monate, bei 
den Prozessoren sogar Jahre ver- 
streichen können. Hinzu kommt 
noch der „Time-Lag“ zwischen 
Amerika und Europa (in der Regel 
sechs Monate). Beispielsweise ist 
der 65816 angeblich bereits 1983 
entwickelt worden. Doch bis Mitte 
1985 hatte offenbar noch keine Fir- 
ma diesen Prozessor eingesetzt. 


1964 


BASIC: Die Programmiersprache 
„BASIC“ („Beginner’s All-purpo- 
se Symbolic Instruction Code“), 
die später zur meistbenutzten Mi- 
krocomputersprache werden soll, 
wird von John G. Kemeny und 
Thomas E. Kurtz für Großanlagen 
entwickelt. 


1968 


Pascal: Die Programmiersprache 
„Pascal“, die später zur wichtig- 
sten Mikrocomputersprache für 
den Ausbildungsbereich werden 
soll, wird von Niklaus Wirth in An- 
lehnung an Algol konzipiert und 
1970 erstmals auf einem Groß- 
rechner implementiert. 


1971 


4004: Intel entwickelt den 4-Bit- 
Prozessor „4004“. Ähnliche 4-Bit- 
Prozessoren findet man heute 
noch in vielen Industrie- und Haus- 
haltsgeräten, z.B. in Waschma- 
schinen, Taschenrechnern usw. 


1973 
8080: Intel konstruiert den 8-Bit- 
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Prozessor „8080“, der später als 
Vorläufer zum Z80 gelten wird. 


1974 


CP/M: Gary Kildall konzipiert als 
Berater von Digital Research die 
Urversion von „CP/M“ (= „Con- 
trol Program for Microproces- 
sors“), eines der in den nachfol- 
genden Jahren meistbenutzten 
Betriebssysteme auf 8080- bzw. 
Z80-Basis. 


1975 


6502/Z80: In diesem Jahr entste- 
hen die zwei wirtschaftlich wichtig- 
sten 8-Bit-Prozessoren, nämlich 
der „Z80“ von Zilog und der 
„6502“ von MOS Technology, ei- 
ner von ehemaligen Motorola-Mit- 
arbeitern gegründeten Firma, die 
später von Commodore übernom- 
men werden wird. Von Motorola 
stammt in jener Zeit der wenig be- 
deutsame „6800“ als Vorläufer 
zum späteren „68000“. 

Allgemein sei hier angemerkt, daß 
das Schicksal der verschiedenen 
Prozessoren selten richtig progno- 
stiziert wird. Als einer der besten 
8-Bit-Prozessoren gilt beispiels- 
weise der „6809“, doch wird er 
fast nie eingesetzt (Ausnahme z.B. 
„Dragon“). Ein ähnliches Schick- 
sal ereiit den 16-Bit-Prozessor 
„Z8000“ von Zilog, der praktisch 
nie verwendet wird. 


KIM: Ferner werden in dieser Zeit 
die ersten Bausätze bzw. Einplati- 
nencomputer („Kits“) konstruiert, 
z.B. der berühmte „KIM“ (= „Key- 
board Input Monitor") auf 6502- 
Bass. Das Nachfolgemodell 
„AIM“ istnoch heute von Rockwell 
erhältlich. 


Mikrocomputer-BASIC: Bill Gates, 
der Begründer von Microsoft, 
schreibt 1975 den ersten BASIC- 
Interpreter für Mikrocomputer. Die 


Firma Microsoft wird in der Folge- 
zeit zum größten Programmier- 
sprachen- und Betriebssystem- 
Lieferanten für die Mikrocomputer- 
Industrie. 


Während das Integer-BASIC des 
alten Apple II noch von Steve Woz- 
niak selbst entwickelt wird, ist „Ap- 
plesoft“ ein um Hires-Routinen er- 
weitertes Microsoft-BASIC, das et- 
wa Mitte 1978 zunächst als „Ap- 
plesoft I“ und später als „Applesoft 
II" auf Kassette, Diskette oder 
Sprachkarte geliefert werden wird. 
Was man heute als „FPBASIC“ 
von der System-Master-Diskette 
her kennt, ist bereits mit der ROM- 
Applesoft-Version des Il+/e iden- 
tisch, also nicht mit dem in den 
unteren 48K-Bereich einzuladen- 
den alten „Applesoft II“ zu ver- 
wechseln. 


1976 


Apple I: Eine völlig unbekannte 
„Garagenfirma“ namens Apple 
wird von Steve Jobs und Steve 
Wozniak im April 1976 gegründet. 
Wozniak, der das College verlas- 
sen und vorübergehend bei Hew- 
lett Packard gearbeitet hat, ist ge- 
rade 25 Jahre alt. Der etwas jünge- 
re Steve Jobs, der kurze Zeit bei 
Atari angestellt gewesen ist, hat 
ebenfalls nie sein Studium been- 
det und ist mehr am Geldverdie- 
nen denn an der Technik interes- 
siert. Jobs gilt als „Antreiber“ und 
Wozniak als „Arbeiter“. 


Ende 1975 erblickt der 6502-Bau- 
satz-Computer namens „Apple |“ 
das Licht der Welt. Es werden je- 
doch nur einige hundert Exemplare 
verkauft, da Jobs vorausschauend 
auf eine professionellere Weiter- 
entwicklung mit Gehäuse und Ta- 
statur drängt. Die Garagenfirma 
Apple bietet den bereits gestande- 
nen Firmen HP und Atari die Ent- 
wicklung eines Personal-Compu- 











ters an: ohne Erfolg, denn niemand 
erahnt damals den kometenhaften 
Aufstieg von Apple. 


TI-59: Von Texas Instruments wird 
der „TI-59“ entwickelt, der in den 
nachfolgenden Jahren zu dem 
meistbenutzten programmierbaren 
Taschenrechner werden wird (bis 
zur Produktionseinstellung 1983). 
Ähnlich erfolgreich ist der HP-41 
von Hewlett Packard. Neben die- 
sen anspruchsvollen wissen- 
schaftlich-technischen „Pocket- 
Computern“ macht die seit 1976 
einsetzende Flut billiger Taschen- 
rechner (u.a. von Commodore und 
später namentlich von japanischen 
Produzenten wie Sharp usw.) dem 
Rechenschieber, der Logarithmen- 
tafel und anderen Rechenhilfsmit- 
teln den Garaus. Die ersten Mikro- 
computer-Zeitschriften sind noch 
überwiegend den programmierba- 
ren Taschenrechnern gewidmet. 
Das „Kopfrechnen“ wird zu einer 
nur noch von wenigen Schülern 
beherrschten Fähigkeit verküm- 
mern. Dafür wird in der Schule die 
„Mengenlehre“ eingeführt, von 
der man sich jedoch Ende 1984 
wieder distanziert. 


5,25-Disk-Drive: Shugart entwik- 
kelt das erste 5,25-Zoll-Disk-Drive 
(für „flexible Platten“ = „floppy 
discs“), das später die Grundlage 
der Apple-Diskettenlaufwerke wer- 
den soll. Die noch heute üblichen 
„DISK II“-Laufwerke (140K) er- 
scheinen jedoch erst Mitte 1978. 
Die Urversion des dazugehörigen 
Betriebssystems heißt „DOS 3" 
bzw. „DOS3.1“ undwird von Steve 
Wozniak und Randy Wiggington 
entwickelt. Wozniak konstruiert 
den Controller und schreibt die 
Nibble-Routinen, während der 
File-Manager von Wiggington 
stammt. Die letzte und noch heute 
übliche Version „DOS 3.3" er- 
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scheint im Herbst 1980. Anfang 
1984 wird „DOS 3.3“ durch „Pro- 
DOS“ ersetzt werden, ein UNIX- 
ähnliches Betriebssystem mit hier- 
archischer Directory-Struktur. 


1977 


Apple Il: Im April wird der 6502- 
Rechner „Apple II“ in dem noch 
heute üblichen beige Plastikge- 
häuse mit Integer-BASIC im ROM 
in der Grundversion mit 4K RAM 
(!), jedoch bereits ausbaufähig auf 
48K RAM, vorgestellt. Als 
Datenspeicher dient ein externer 
Kassettenrecorder, als Drucker ein 
ausgedienter Fernschreiber. 

Die Entwicklung des Apple II fällt in 
die zweite Jahreshälfte von 1976. 
Zu diesem Zeitpunkt wird auch 
Mike Markkula, der zuvor Marke- 
ting-Manager bei Intel gewesen ist, 
als kaufmännischer Leiter einge- 
stellt, der nach seiner Pensionie- 
rung von John Sculley, vormals 
Manager in der Getränke-Industrie 
(Pepsi-Cola), Ende 1983 abgelöst 
werden wird. 

Zu den technischen Helfern der 
ersten Stunde gehören Allen 
Baum (u.a. Monitor-ROM, Slot- 
Konzept), Randy Wiggington (u.a. 
DOS 3.3), Rod Holt (u.a. Netzteil) 
und Chris Espinosa, der das „Red 
Manual“ und später das „Techni- 
cal Reference Manual“ schreiben 
wird. 

Vom Apple II und dem späteren 
Apple II+ (Mitte 1978) werden bis 
Mitte 1983 insgesamt über 1 Mil- 
lion Exemplare verkauft worden 
sein. Nimmt man noch den Apple 
Ile (Anfang 1983) und den Apple 
IIc (Mai 1984) hinzu, so gilt der 
Apple Il in all seinen Spielarten als 
der einzige Mikrocomputer, der die 
ersten 10 Jahre der Mikrocompu- 
ter-Ära mit hohem Verkaufserfolg 
überdauert, was auf sein unge- 
wöhnlich flexibles Konzept zurück- 
zuführen ist. 


PET: Fast gleichzeitig mit dem Ap- 
ple Il wird der „PET“ von Commo- 
dore — ebenfalls ein 6502-Mikro- 
computer — vorgestellt. Beim PET 
ist der Kassettenrecorder direkt 
eingebaut. Weitverbreitete Nach- 
folgemodelle zum PET sollten spä- 
ter die Rechner der 4000er und 
8000er Serie werden. 

Andere Mikrocomputer der ersten 
Stunde stammen von den Firmen 
Ohio Scientific („OSI“, 1977), 
North Star („Horizon“, 1977), Tan- 
dy Radio Shack („TRS-80“, 1977) 
und Exidy („Sorceror“, 1978), von 
denen man jedoch inzwischen — 
mit Ausnahme von TRS — nichts 
mehr hört. 
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Dreiergestirn: Verallgemeinert 
kristallisiert sich in der Anfangszeit 
der Mikrocomputer-Ära das zu- 
nächst gleichwertige Dreiergestirn 
Apple-Tandy-Commocdore heraus. 
Commodore hat jedoch bald 
Schwierigkeiten auf dem amerika- 
nischen Markt und verlagert des- 
halb vorübergehend seine Aktivitä- 
ten nach Europa, wo es allmählich 
zum Marktführer wird. Wegen ei- 
ner verfehlten Modellpolitik gerät 
Tandy ins Hintertreffen und muß in 
den USA schon früh die Marktfüh- 
rerschaft an Apple abtreten, das 
seine Führungsrolle bis zum Ein- 
tritt von IBM in den PC-Markt be- 
hauptet. 

Für das aktuelle Bilanzjahr 1984/ 
85 gilt in den USA die Reihenfolge 
1. IBM 

2. Apple 

3. Commodore, 

während in Deutschland die umge- 
kehrte Reihenfolge gilt 

1. Commodore 

2. IBM 

3. Apple. 


68000: Motorola beginnt 1977 mit 
der Entwicklung des 16-Bit-Pro- 
zessors „68000“, der jedoch erst 
1979 auf den Markt kommen und 
später in zahlreichen Home- und 
Personal-Computern eingesetzt 
werden wird (z.B. Amiga, Macin- 
tosh). 


1978 


Apple Il+: In Verbindung mit den 
Mitte 1978 ausgelieferten Disk-II- 
Laufwerken wird der Apple II mit 
einem „Autostart-ROM" verse- 
hen, das zum automatischen Boo- 
ten von DOS erforderlich ist. Au- 
Berdem wird anstelle von Integer- 
BASIC das Applesoft-BASIC im 


ROM geliefert. Der im übrigen un-. 


veränderte Apple Il wird in „Apple 
II+“ oder „Apple II Plus“ umbe- 
nannt. 


UCSD-Pascal: Es werden erste 
Mikrocomputer-Versionen von 
„UCSD-Pascal“ konzipiert, z.B. 
Apple-Pascal 1.0, das dann 1979 
erscheint und kurz darauf durch 
Version 1.1 sowie 1983 durch Ver- 
sion 1.2 abgelöst werden wird. 
Überhaupt hat Apple bei mehreren 
Mikrocomputer-Programmierspra- 
chen die Nase vorn, z.B. bei Logo 
(1982). 


Wordstar: Micropro arbeitet an ei- 
nem CP/M-8080-Programm na- 
mens „Wordmaster“, später 
„Wordstar“ genannt, das zu dem 
meistbenutzten Textverarbei- 
tungsprogramm der nächsten Jah- 


re werden sollte. Für den Apple 
selbst wird jedoch der „Applewri- 
ter“ von Paul Lutus zum bekannte- 
sten Textprogramm, dessen Ur- 
version 1.0 im Jahre 1978 entsteht 
und später durch die Versionen 1.1 
und 2.0 abgelöst werden wird. 


MX-80: Die japanische Firma Ep- 
son kündigt den Drucker „MX-80“ 
an. Dieses Modell und die Weiter- 
entwicklungen MX-82, FX-80 usw. 
werden sich in der Folgezeit zu 
den meistgekauften Matrixdruk- 
kern entwickeln, wie überhaupt ja- 
panische Firmen den Drucker- 
markt beherrschen werden. 


8086: Von Intel wird der 16-Bit- 
Prozessor „8086“ angekündigt, 
der später in zahlreichen „MS- 
DOS“-Rechnern (MS = Microsoft) 
der gehobenen Preisklasse Ver- 
wendung finden wird. 


1979 


Visicalc: Dan Bricklin von Soft- 
ware Arts (später Visicorp) entwik- 
kelt ein innovatives Programm na- 
mens „Visicalc“, zunächst für den 
Apple II und danach für eine Viel- 
zahl anderer Mikrocomputer. Visi- 
calc gilt als eines der genialsten 
und im übrigen wirtschaftlich er- 
folgreichsten „Tabellenkalkula- 
tionsprogramme“. Alle nachfol- 
genden „Visi-Clones“ wie „Multi- 
plan“ von Microsoft usw. sind nur 
Nachahmungen und Erweiterun- 
gen der ursprünglichen Tabelleni- 
dee. Visicorp wird später (Mai 
1985) aus „Marktbereinigungs- 
gründen“ von Lotus aufgekauft 
und dann aufgelöst werden. 


dBASE: Wayne Ratliff entwickelt 
ein CP/M-Z80-Programm namens 
„Vulcan“, das später unter dem 
noch heute üblichen Namen 
„dBASE II“ von Ashton-Tate ver- 
marktet wird und sich als eines der 
wichtigsten Datenbankprogramme 
für Mikrocomputer erweisen sollte. 
Inzwischen gibt es dBASE II und II 
für eine Vielzahl von Rechnern und 
Betriebssystemen (beim Apple |l 
unter CP/M). 


1980 


ZX80: Sinclair kündigt den Z80- 
Rechner „ZX80“ an. Dieses Mo- 
dell und die Nachfolgemodelle 
ZX81, Spectrum usw. machen als 
Billigst-Homecomputer die Mikro- 
computertechnik auch für Schüler 
erschwinglich. 1985 gerät Sinclair, 
nachdem der neue 68008-Rech- 
ner „QL“ („Quantum Leap“) an- 
gekündigt worden ist, in finanzielle 
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Schwierigkeiten und wird von ei- 
nem britischen Zeitungsverleger 
übernommen. 


VC20: Eine noch größere Verbrei- 
tung als der ZX80 erreicht der 
ebenfalls 1980 vorgestellte 6502- 
Rechner „VC20“ von Commodo- 
re, von dem bis Anfang 1983 be- 
reits über 1 Million Exemplare ver- 
kauft sein werden. Mit diesem Mi- 
krocomputer und dem späteren 
„C64“ zementiert Commodore 
seine Vorherrschaft auf dem Hob- 
by- und Homecomputer-Sektor. 


Apple Ill: Der 6502-Rechner „Ap- 
ple III“, der im Mai 1980 vorgestellt 
wird, soll das Nachfolgemodell 
zum Apple Il werden. Anfängliche 
Hardware-Mängel führen zu um- 
fangreichen Umtauschaktionen. 
Danach wird der Apple Ill nur noch 
wenig gekauft und im Herbst 1984 
eingestellt. 


Z80-Softcard: Microsoft entwik- 
kelt die „Z80-Softcard“ für den 
Apple Il sowie eine angepaßte CP/ 
M-Version (in Sublizenz von Digital 
Research). Ferner entwickelt Videx 
eine 80-Zeichenkarte namens „Vi- 
deoterm“ für den nach wie vor oh- 
ne 80-Zeichendarstellung ausge- 
lieferten Apple II+. Da nunmehr 
auch CP/M-Programme wie 
dBASE und Wordstar „gefahren“ 
werden können, erlebt der Apple II 
in der Folgezeit seine größte 
Wachstumsperiode. Gleichzeitig 
beginnen „Nachbauer“ aktiv zu 
werden. Zunächst werden nur Zu- 
satzkarten „abgekupfert“, später 
der Apple-IlI-Computer selbst. 


1981 


Wozniak-Unfall: Im Februar hat 
Steve Wozniak einen Flugzeugab- 
sturz mit seiner eigenen Sportma- 
schine und zieht sich nach einem 
längeren Krankenhausaufenthalt 
aus dem Tagesgeschäft bei Apple 
zurück und nimmt vorübergehend 
ein wirtschaftswissenschaftliches 
Studium auf. 


Osborne 1: Adam Osborne, der 
jahrelang unter seinem Namen Bü- 
cher schrieb und schreiben |ieß, 
entwickelt den ersten tragbaren 
Mikrocomputer namens „Osborne 
1“ auf Z80-Basis. Nach anfängli- 
chen Erfolgen muß die Firma je- 
doch im Herbst 1983 Konkurs an- 
melden. Zu diesem Zeitpunkt gerät 
auch die Firma Sirius, deren 
gleichnamiger Mikrocomputer von 
„Chip“ noch als „Computer des 
Jahres“ apostrophiert wird, in wirt- 
schaftliche Bedrängnis. 
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Ikonen und Maus: Xerox entwik- 
kelt im Palo Alto Research Center 
(= PARC) einen Rechner namens 
„Star“, der wohlgemerkt kein PC, 


sondern ein Computer in der 
200.000-DM-Preisklasse ist. Neu- 
artig am „Star“ ist die „Benutzer- 
schnittstelle“, die sich durch die 
Verwendung symbolhafter Bilder 
(„Ikonen“) und eines Zeigegerä- 
tes („Maus“) auszeichnet. Damit 
soll dem EDV-unkundigen Laien 
der Umgang mit der EDV-Anlage 
erleichtert werden. Diese Bilder- 
sprache wird später die Grundlage 
des Finder- und des GEM-Be- 
triebssystems werden. Den Finder 
wird man in den Computern Lisa 
und Mac von Apple antreffen, und 
den wesentlich später entwickelten 
bzw. „abgekupferten“ GEM (= 
Graphics Environment Manager) 
wird man in Rechnern der Firma 
Digital Research finden, die dann 
im Herbst 1985 wegen Plagiats in 
die Zahlung von Lizenzen an die 
Firma Apple einwilligt. 


PC: IBM steigt im Spätherbst 1981 
mit dem 8088-Mikro „PC“ in das 
Mikrocomputer-Geschäft ein, 
nachdem zuvor Microsoft das 
„MS-DOS“ (später PC-DOS) als 
Auftragsproduktion für IBM entwik- 
kelt hat. Obwohl der „PC“ tech- 
nisch so schlicht wie sein Name 
ist, wird er rasch vom kommerziel- 
len Anwender (Büros in Industrie- 
firmen) akzeptiert. Bis Ende 1984 
gibt es dann noch ein Kopf-an- 
Kopf-Rennen zwischen IBM und 
Apple auf dem amerikanischen 
Markt. 1985 setzte sich IBM jedoch 
klar als Marktführer mit neuen Mo- 
dellen wie „PC-XT“ (noch 8088) 
und „PC-AT“ (80286) durch. Ne- 
ben dem „Apple II“ gehört der 
„PC“ zu den am meisten nachge- 
bauten Mikrocomputern. 


1982 


Franklin-Prozeß: Franklin bringt 
einen Computer namens „Ace“ 
als einen Apple-Il-Nachbau heraus 
und verwickelt sich in der Folgezeit 
in einen fast zweijährigen Urheber- 
rechtsprozeß mit der Firma Apple 
wegen der Kopie des Monitor- 
ROMs und zahlt schließlich nach 
einem außergerichtliichen Ver- 
gleich 2,5 Mill. Dollar Schadener- 
satz. Danach verschwindet Fran- 
klin von der Bildfläche. 


Basis-Prozeß: Ähnlich unerquick- 
lich ist die Situation für die Firma 
Basis in Münster, die ursprünglich 
Alleinauslieferer für Apple in 
Deutschland ist und infolge eines 
Urheberrechtsprozesses in Sa- 
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chen Micropro-Basis wegen einer 
exorbitanten Schadenssumme 
Konkurs anmelden muß. 


C64: Commodore bringt als Nach- 
folgemodell zum VC20O den „C64" 
heraus, der besonders in Europa 
eine große Verbreitung erreichen 
wird. 


Integrierte Software: Lotus kün- 
digt „1-2-3“ für den IBM-PC an, 
das als integriertes Programmpa- 
ket quasi Visicalc, Visiplot und Visi- 
file in einem darstellt. In den dar- 
auffolgenden Jahren werden wei- 
tere integrierte Software-Pakete 
(z.B. 1984 „Symphony“) als „Uni- 
versallösungen“ auf den Markt ge- 
bracht. Man wird jedoch im Jahre 
1985 erkennen, daß Programme, 
die „alles in einem“ bieten, sich für 
„alle und keinen“ eignen. 


1983 


Lisa: Apple stellt anläßlich der 
Jahreshauptversammlung im Ja- 
nuar den 68000-Rechner „Lisa“ 
mit Maus und Ikonen als die größte 
„Revolution“ in der Mikrocompu- 
ter-Geschichte vor. Der hohe Preis 
(anfangs ca. 30.000,- DM, später 
ca. 18.000,-) und die fehlende 
Großrechner-Kompatibilität 
schreckt jedoch viele Firmen vom 
Kauf ab, so daß die Lisa Anfang 
1985 wieder aus dem Produktions- 
programm genommen werden 
wird. 


Apple Ile: Anfang 1983 erscheint 
außerdem der „Apple Ile“ (e = 
extended), der sich gegenüber 
dem Apple Il und II+ durch eine 
Verbesserung des Motherboards, 
eine DIN-Tastatur und eine 80-Zei- 
chenkarte auszeichnet, so daß 
nunmehr Textverarbeitung ohne 
zusätzliche Hardware möglich ist. 


MSX: In Verbindung mit japani- 
schen Firmen kündigt Microsoft 
das sog. „MSX-Standard-BASIC“ 
für Homecomputer auf Z80-Basis 
an. Doch weder in den USA noch 
in Europa wird dieser Standard 
übernommen werden (MSX = Mi- 
crosoft Super Extended). 


65816: Western Design Center 
entwickelt den 16-Bit-Prozessor 
„65816°, doch geht er erst im 
Herbst 1935 in Produktion. Wegen 
der Kompatibilität zum 6502 wird 
der 65816 sowie die zum 6502 
pin-kompatible Spezialversion 


65802 für alte 6502-Rechner noch 
große Bedeutung erlangen. 


Turbo-Pascal: Borland kündigt 
„Turbo-Pascal“ für den IBM-PC 
und später für CP/M-Rechner an. 
Infolge des ungewöhnlich niedri- 
gen Preises erlangt es rasch eine 
große Verbreitung. Microsoft muß 
lernen, daß gute Programmierspra- 
chen auch billig sein können. 


1984 


Macintosh: Im Januar stellt Apple 
den 68000-Rechner „Macintosh“ 
als abgemagerte Version der be- 
reits kränkelnden Lisa vor. Wegen 
des „geschlossenen“ Konzepts 
(zunächst keine Slots, keine tech- 
nische Dokumentation und keine 
apple-eigenen Programmierspra- 
chen) erscheinen anfangs nur we- 
nige fremde Soft- und Hardware- 
Produkte, und der Verkauf bleibt 
erheblich hinter den Erwartungen 
zurück. Nach einem Jahr kündigt 
sich ein Preisverfall an: Der „Fat 
Mac“ von Ende 1985 ist billiger als 
der „Thin Mac“ von Anfang 1984. 
Universitäten werden zu Sonder- 
preisen beliefert, weshalb der 
Macintosh dort mehr Verbreitung 
findet als im ursprünglich anvisier- 
ten Bürobereich. Ende 1985 um- 
faßt der deutsche Mac-Club als 
Ableger der AUGE etwa 150 Mit- 
glieder. Die Zahl der Macintosh- 
Käufer selbst ist allerdings erheb- 
lich größer, doch muß man nicht 
nur der Firma Apple, sondern auch 
der Presse anlasten, daß noch bei 
keinem anderen Gerät derart 
„großkotzig“ übertrieben wurde. 


Apple lic: Im Mai 1984 wird der 
65C02-Mikrocomputer „Apple IIc“ 
(c = compact), der sich vom Apple 
Ile durch das Fehlen der Slots auf 
der einen und die Integrierung ver- 
schiedener Zusatzkarten auf der 
anderen Seite auszeichnet, in ei- 
ner von vollem Optimismus ge- 
prägten Werbeshow präsentiert. 
Dieses „Mir-gehört-die-Welt“-Ge- 
baren („aut malum aut nihil“) äu- 
Bert sich noch bis zum Jahresende 
auf verschiedenen Messen. So 
wird etwa anläßlich der Orgatech- 
nik-Messe in Köln anstelle eines 
Großstandes gleich eine ganze 
Halle gemietet. 


1985 


Apple-Querelen: Nicht das Or- 
well-Jahr 1984, sondern das Jahr 
1985 wird für die meisten Mikro- 


computer-Hersteller zum Horror- 
Trip. Von den zwei- bis dreistelli- 
gen Zuwachsraten der vergange- 
nen Jahre verwöhnt, fahren jetzt 
viele Firmen satte Verluste ein. Der 
Pleite-Geier kreist über dem Sili- 
con-Valley. Nach dem ersten 
Quartal häufen sich die Meldungen 
über Kurzarbeiten, Entlassungen, 
Betriebsstillegungen und Kon- 
kurse. 

Die Firma Apple, die 1985 keinen 
neuen Computer herausbringt, 
wird besonders gebeutelt (mehre- 
re Werksschließungen). Steve 
Wozniak, der seit seinem Flug- 
zeugunglück keinen leitenden Po- 
sten mehr übernommen hatte, ver- 
läßt wegen Meinungsverschieden- 
heiten über die Weiterentwicklung 
des Apple Il im Februar die Firma 
Apple. Steve Jobs wird Mitte des 
Jahres von John Sculley seiner 
Entscheidungsbefugnisse für die 
Macintosh-Division enthoben und 
verkündet im September sein Aus- 
scheiden aus der Firma Apple. 
Jobs gründet noch Ende Septem- 
ber eine „Gegenfirma“ namens 
„Next“ („The Next Apple“), die 
Konkurrenzprodukte für den Uni- 
versitätsbereich entwickeln will. 
Wie seinerzeit gegen den Nach- 
bauer Franklin (1982) kündigt Ap- 
ple ein Gerichtsverfahren gegen 
Jobs an, nunmehr jedoch wie bei 
einem Scheidungsprozeß „in Sa- 
chen Apple gegen Apple“. 


Amiga/512 ST: Ende 1985 erre- 
gen zwei neue, ungewöhnlich 
preiswerte 68000-Mikrocomputer 
in der 2000-3000-DM-Preisklasse 
Aufsehen, nämlich der „Amiga“ 
von Commodore und der „512 
ST" von Atari. Ob man diese ris- 
kante Tiefstpreispolitik durchste- 
hen wird, muß das Jahr 1986 er- 
weisen. 


Und 1986? 


Für 1986 werden zwei Neuheiten 
erwartet: 

1. Nachfolgemodell zum Apple Ile 
auf 65816- bzw. 65802-Basis mit 
partieller Kompatibilität zum alten 
Apple Ile. 

2. Nachfolgemodell zum Macin- 
tosh unter Wiederbelebung des 
Slot-Konzepts. 
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Die rasche Orientierung für APPLE 
IIplus, He, Ic 


Schnelle Antwort auf Alltagsfragen am APPLE II - 
leicht nachzuschlagen, praxisbezogen, für IIplus, Ile, IIc 
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Unterschiede Ilplus/IIe, DOS 3.3/ProDOS, E/ A-Inter- 
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Tastatur, 48K/128K Systeme etc. 
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Elektronischer Schreibtischmanager 
Dieses Programmsvystem vereinigt die 
Funktion Texterstellung, Datenarchivie- 
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Pascal-Leserbriefe 


Zu dem Ergebnis des Pascal-Preisaus- 
schreibens (s. Heft 9/85, S. 58) sowie in 
diesem Zusammenhang zu Pascal 
selbst ging eine wahre Flut von Briefen 
ein, von denen wir nachfolgend eine 
Auswahl abdrucken. Allgemein möchte 
ich anmerken, daß der Peeker in Zu- 
kunft mehr Aufsätze über Pascal veröf- 
fentliichen wird, und zwar sowohl 
Grundlagenbeiträge wie der Einfüh- 
rungskurs in diesen Heft als auch Spe- 
zialbeiträge in der Art der „Tips und 
Tricks“-Serie von Dieter Geiß, die gro- 
Ben Zuspruch gefunden hat. 

Ihre Reaktion auf das Preisausschrei- 
ben zwingt mich, Ihnen reinen Wein 
einzuschenken. Von den seinerzeit ein- 
gereichten Lösungen war keine einzige 
Lösung korrekt. Die meisten Program- 
me hatten bereits die einfachsten Tests 
nicht überstanden. Aber auch die Pro- 
gramme von U. Allgeier und G. Müller 
laufen nicht völlig einwandfrei. Das Pro- 
gramm von U. Allgeier funktioniert nicht 
unter der 64K-Version von Pascal 1.2, 
und das Programm von G. Müller bringt 
den Editor gelegentlich zum Absturz, 
wenn man den konvertierten Textfile 
einlädt. Weder das Allgeier- noch das 
Müller-Programm nehmen zudem auf 
die Blockorganisation des Pascal-Edi- 
tors Rücksicht, so daß man einen kon- 
vertierten Textfile normalerweise nicht 
direkt — ohne den Umweg über das 
vorherige Einladen in den Editor - com- 
pilieren kann. (Den gleichen Fehler hat 
auch das GETDOS-Programm von Die- 
ter Geiß aus Heft 1/1985, S. 70.) 

Nun stelle man sich einmal plastisch 
mein Dilemma vor: Hätte ich im Sep- 
tember-Heft verkündet, daß kein einzi- 
ger Gewinner ermittelt werden konnte, 
so hätten mir wohl einige Leser „Schie- 
bung“ unterstellt. Also mußte ich wohl 
oder übel wenigstens zwei „Lösungen“ 
für die Hauptgewinne auswählen. Und 
wenn ich verärgert die Allgeier- „Lö- 
sung“ auf 1/4 Druckseite zusammen- 
gequetscht habe, dann deshalb, weil ein 
nicht völlig fehlerfreies Programm kei- 
nen größeren Raum beanspruchen darf. 
Noch einen anderen Punkt, der in den 
nachfolgenden Leserbriefen aus Ihrer 
Sicht mit Recht kritisiert wird, muß ich 
aus einer ganz anderen Perspektive 
hier ansprechen. Mir war und ist be- 
wußt, daß die Kürze des Quelltextes 
kein sinnvolles Kriterium ist. Ich hatte 
jedoch noch den Berg mit den über 250 
Primzahl-Lösungen des damaligen 
Wettbewerbs lebhaft in Erinnerung, der 
mich 14 Tage lang in Beschlag genom- 
men hatte mit dem „Erfolg“, daß das 
Januar-Februar-Heft zum Doppelheft 
umgemünzt werden mußte. Bei meiner 
extremen Arbeitsüberlastung mußte ei- 
ne inhaltliche Prüfung der Pascal-Quell- 
texte von vornherein ausgeschlossen 
werden, so daß ich also auch nicht ge- 
merkt hätte, ob in einem beliebig langen 
Listing irgendwo eine Peek-Poke-Routi- 
ne versteckt wurde. Meine Hoffnung, 
Peeks und Pokes durch die Vorgabe 
eines möglichst kurzen Quelltextes zu 
verhindern, erfüllte sich nicht. Anderer- 
seits wollte ich aber auch nicht den re- 
gulären Assembler zulassen, denn 
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sonst hätten nur lupenreine Assem- 
blerprogramme eine Gewinnchance ge- 
habt, was nicht im Sinne eines Pascal- 
Wettbewerbs sein kann. Zudem gibt es 
auch hier wieder einen rein „arbeits- 
technischen“ Grund. Wären beispiels- 
weise 250 Lösungen eingegangen, die 
dann unter Pascal 1.1 und 1.2 hätten 
nachvollzogen werden müssen, so wä- 
re ich tagelang mit dem Assemblieren, 
Compilieren und Linken beschäftigt ge- 
wesen. Und Sie hätten sich gewundert, 
warum das September-Heft vom 
Peeker so spät erscheint... Soviel aus 
einer ganz anderen Perspektive. Den 
grundgescheiten Argumenten in den 
Leserbriefen selbst habe ich nichts hin- 
zuzufügen. 

Ulrich Stiehl 


Leserbriefe 


In jedem Heft Pascal 

Ich glaube, der Erfolg des Peeker be- 
ruht darauf, daß er allen etwas zu bieten 
hat, und zwar in jedem Heft. Egal wel- 
che Interessen der jeweilige Leser hat, 
ob er in Applesoft programmiert, in As- 
sembler oder in Pascal, ob er ProDOS 
benutzt oder CP/M, in jedem Heft findet 
er einen Artikel, der ihn anspricht. 

Für Ihre weitere Arbeit würde das be- 
deuten, daß jeder dieser Teilbereiche 
weiterhin in jedem Heft behandelt wer- 
den muß. Für mich wäre es ein Grund, 
das Abonnement zu kündigen, wenn ich 
nicht in jedem Heft einen Artikel über 
Pascal finden würde! Ich kann deshalb 
auch nicht den Folgerungen von Herrn 
Stiehl aus der mangelhaften Resonanz 
auf das Pascal-Preisausschreiben zu- 
stimmen. Das geringe Interesse beruht 
meines Erachtens auf der Tatsache, daß 
es nur wenige Programmierer gibt, die 
sich für Pascal und ProDOS gleichzeitig 
interessieren. Wenn es nach mir ginge, 
dürfte die Berichterstattung über Pascal 
ausgedehnt werden. 

Joachim Schneider, Siegburg 


Wettbewerbsregeln nur für Freaks 

In dem Artikel über das Pascal-Preis- 
ausschreiben beklagen Sie die geringe 
Teilnahme und leiten daraus den Schluß 
ab, „daß es unter den Apple-Program- 
mierern nur ganz wenige Pascal-Pro- 
grammierer gibt und daß es unter den 
Pascal-Programmierern nur ganz weni- 
ge gibt, die wirklich schwierige Pro- 
gramme schreiben können.“ Diese 
Schlußfolgerung ist meiner Meinung 
nach sehr voreilig: Das Preisausschrei- 
ben war so angelegt (möglichst kurzer 
Quell- und P-Code, möglichst schnelle 
Kopierzeiten), daß nur Pascal- 
„Freaks“, die die P-Maschine in- und 
auswendig kennen, unter Anwendung 
aller möglichen „Tricks“ eine Chance 
zum Gewinnen hatten. Die Bedingun- 
gen waren damit völlig pascal-untypisch 
und mußten zu völlig pascal-untypi- 
schen Programmen führen. 

Die Bedingungen des Preisausschrei- 
bens liefen den Stärken von Pascal 
(z.B. Blockstruktur, selbstdokumentie- 


rendes Programm-Listing, Unabhängig- 
keit von Kenntnissen über Interna des 
Betriebssystems...) völlig zuwider. So- 
mit motiviert das Preisausschreiben 
eben nicht „normale“ Pascal-Program- 
mierer, sondern nur die 0.g. „Freaks“. 
Das abgedruckte Sieger-Programm ist 
dann auch ein Musterbeispiel für un- 
strukturierten, unverständlichen (Anti-) 
Pascal-Code. Man muß schon zweimal 
hinschauen, um zu erkennen, daß es 
sich dabei um ein Pascal-Programm 
handelt. Solch ein Programmierstil wird 
an Schulen sicher nicht gelehrt. 

Da Herr Allgeier ein wirklich kompaktes 
mit Programmierkniffen gespiktes Pro- 
gramm geschrieben hat, verstehe ich 
nicht, daß Sie es so kommentarlos ab- 
drucken. Als „normaler“ Pascal-Pro- 
grammierer verstehe ich (und sicher die 
meisten Peeker-Leser) so manchen 
Trick nicht. Ich wäre Ihnen also dankbar, 
wenn Sie die Funktionsweise des Sie- 
ger-Programms in einer der nächsten 
Ausgaben Ihrer Peeker-Zeitschrift aus- 
führlich erklären würden. Insbesondere 
interessiert mich, was in den BIOS-Puf- 
fer ab $0200 gepokt wird und was die in 
den Apple-Handbüchern nicht doku- 
mentierte Prozedur UNITSTATUS be- 
wirkt. Das wäre auch ein gutes Thema in 
der interessanten Serie „Tips und 
Tricks in Pascal“ von D. Geiß. 

Friedel Berlage, Borgentreich 


Vielseitigkeit der Aufgabe 

Sie haben bestimmt nicht recht, wenn 
Sie sagen, es gäbe unter den Apple- 
Programmierern nur ganz wenige Pas- 
cal-Programmierer, von denen nur ein 
Bruchteil wirklich schwierige Program- 
me schreiben kann. 

Die mangelnde Resonanz beruht wahr- 
scheinlich vielmehr auf der Vielseitigkeit 
der gestellten Aufgabe: Der Program- 
mierer muß gute Pascal-Kenntnisse be- 
sitzen, um ein gerafftes Programm zu 
schreiben, er muß die Maschinenspra- 
che beherrschen, um eine akzeptable 
Routine zum Zusammenfassen der 
Leerzeichen schreiben zu können, 
dann muß er so weit im UCSD-System 
beheimatet sein, daß er weiß, wie man 
peekt, pokt und einen Maschinenspra- 
che-Aufruf simuliert, der unter Pascal 
1.1 und 1.2 läuft, und schließlich hat er 
auch noch den Aufbau des ProDOS- 
Inhaltsverzeichnisses zu kennen. 
Ferner sind bestimmt viele Program- 
mierer durch das Kriterium der Kürze 
abgeschreckt worden, das überaus 
„häßliche“ Programme zustande kom- 
men ließ. Zudem hätte man externe Ma- 
schinenunterprogramme zulassen sol- 
len, was die Arbeit wesentlich erleich- 
tert und die Programme lesbarer ge- 
macht hätte. 

Thorsten Brants, Norden 


Wenige Pascal-Aufsätze 

für Fortgeschrittene 

Ich wollte schon seit langem ein paar 
Bemerkungen zu den Peeker-Pascal- 
Artikeln mitteilen und nehme u.a. Bezug 
auf das Pascal-Preisausschreiben und 
Ihre in der Lösung geäußerten kriti- 
schen Gedanken für mehr (bzw. weni- 


ger) Pascal-Artikel: Auf keinen Fall soll- 
ten (meiner Meinung nach) weniger 
Pascal-Artikel gebracht werden, eher 
mehr. Das geringe Echo auf Ihr Preis- 
ausschreiben liegt wahrscheinlich dar- 
an, daß 


1. gute (= brauchbare) Pascal-Artikel in 
anderen Zeitschriften nicht vorhanden 
sind; man beschränkt sich oft auf Anfän- 
ger-Lehrgänge, die erklären, was eine 
For-Next-Schleife ist; das gleiche gilt 
für Bücher: Die meisten Pascal-Pro- 
grammierer (nicht professionell!) ken- 
nen z.B. das Buch: „Algorithmen und 
Datenstrukturen“ von N. Wirth nicht! 

2. „Seriöse“ Pascal-Programmierer 
keine Zeit haben, ein Preisausschreiben 
zu lösen. 

Andreas Kempf, CH-Basel 


Maschinenunabhängige 
Programmierung 

Ihre Rückschlüsse zu Ihrem (sog. „Pas- 
cal“-Preisausschreiben-) Artikel kann 
ich absolut nicht teilen. Jeder, der sich 
in irgendeiner Form mit Pascal beschäf- 
tigt, stößt in irgendeiner Form auf das 
Primzahlenproblem. So ist es wahr- 
scheinlich zu erklären, daß sich relativ 
viele Leser an dem ersten Wettbewerb 
beteiligt haben, da sie schon „Stan- 
dard-Lösungen“ kannten. Ferner läuft 
Ihr zweiter „Pascal“-Wettbewerb der 
Pascal-Philosophie entgegen. In Pascal 
soll maschinenunabhängig program- 
miert werden. Ferner soll eine gewisse 
Form des Quelltextes vorhanden sein 
(besonders „gut“ in dem abgedruckten 
PROTOPAS-Quelltext zu sehen). 

Als weiteres sollte man sich die Frage 
stellen, warum sich ein Pascal-User un- 
bedingt das ProDOS-System anschaf- 
fen sollte. Ich habe es nicht und werde 
es auch nicht tun, da es den einzigen 
Vorteil brächte, wieder in irgendeinem 
unstrukturierten, wildwuchernden BA- 
SIC-Dialekt mit Peeks und Pokes abso- 
lut unlesbare Programme zu schreiben. 
Sie werden verstehen, daß viele Pascal- 
Fans, die über kein Superbetriebssy- 
stem wie ProDOS verfügen, nicht an 
dem Wettbewerb teilnehmen konnten. 
Meiner Meinung nach könnten Sie na- 
türlich wesentlich mehr Pascal-Aufsätze 
bringen, aber bitte mit Problemen, zu 
deren Lösungen man kein anderes Be- 
triebssystem benötigt oder irgendwel- 
che System- oder sonstige Adressen 
kennen muß. Vielleicht sollte man unter 
den Lesern mal eine Umfrage starten, 
welche Themen besonders interessie- 
ren. Ihre Serie „Tips und Tricks in Pas- 
cal“ finde ich übrigens ganz hervorra- 
gend. 

Axel Berthold, Edertal 


Quelltextlänge absurd 

Gegen die Aufgabenstellung an sich 
wäre nichts einzuwenden gewesen, 
einmal abgesehen davon, daß ich 
UCSD längst in die Ecke gestellt habe 
und nur noch unter Turbo arbeite. Daß 
ein Bewertungsmaßstab die Geschwin- 
digkeit war, geht auch in Ordnung. Aber 
die Länge des Objectcodes zu bewer- 
ten war überflüssig, da ein Kopierpro- 
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Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 


Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics“, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 
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gramm ganz allgemein um so schneller 
ist, je mehr freien Arbeitsspeicher es 
zur Verfügung hat. Trotzdem hätte ich ja 
auch das noch toleriert, wenn nicht je- 
mand (Sie!) auf die ungeheuerliche 
Idee gekommen wäre, die Länge des 
Quelltextes einer Compilersprache zu 
bewerten. Ich nehme an, daß 99,9% 
‚aller Pascal-Programmierer an dieser 
Stelle aufhörten, die Ausschreibung 
weiter durchzulesen. Wie Ihr Sieger- 
„Programm“ zeigt: Das ist nicht Pascal, 
sondern ein Alptraum, den man nun 
wirklich nicht mehr als Pascal-Pro- 
gramm bezeichnen kann. 

So beweist das magere Ergebnis nicht 
etwa, daß Ihre Leser sich nicht mit Pas- 
cal beschäftigen, eher im Gegenteil. Es 
beweist nur, daß die Pascal-Gemeinde 
nicht bereit ist, bei einem derartigen 
Verbrechen an dieser schönen Sprache 
zum Mittäter zu werden. 

Klaus Mahlmann, Braunschweig 


Konvertierungsprogramm 

ohne Nutzen 

Wenn die Resonanz auf Ihr Preisaus- 
schreiben extrem gering war, so liegt 
das nicht am Interesse der Leser an 
Pascal, auch nicht am hohen Preis für 
das UCSD-System (Turbo-Pascal läuft 
ja auch auf dem Apple und ist billiger), 
sondern an der Art der Aufgabenstel- 
lung: 

Zur Teilnahme war nicht nur erforder- 
lich, Pascal zu beherrschen (inklusive 
Systemkenntnisse wie UNITREAD 
etc.), sondern man mußte darüber hin- 
aus detaillierte Kenntnisse über den in- 
ternen Aufbau von ProDOS mitbringen. 
Darüber hinaus hat für viele Leser die 
geforderte Utility keinen praktischen 
Nutzen, denn Pascal wird vorwiegend 
zum Entwickeln eigener Programme 
verwendet, während ProDOS doch ei- 
gentlich nur für die Anwendung kom- 
merzieller Software interessant ist. 
Wenn ich das UCSD-System benutze, 
wozu brauche ich dann ProDOS? Daher 
war die geringe Resonanz auf das 
Preisausschreiben vorherzusehen — 
wählen Sie in Zukunft wieder weniger 
spezielle Aufgabenstellungen! 

Das soll keine Kritik an Ihrer ausge- 
zeichneten und vielseitigen Zeitschrift 
sein. Im Rahmen Ihrer Pascal-Artikel 
würden mich insbesondere solche über 
die interne Struktur des UCSD-P-Sy- 
stems interessieren. Hier gibt es eine 
Reihe von Eigenschaften, die keinem 
mir bekannten Buch zu entnehmen sind 
(Wirkung der U-Compiler-Option, Funk- 
tion von SYSTEM.ATTACH etc.). 

Dr. Hans-Joachim Scheefer, Frankfurt 


UCSD-Pascal zu teuer 

Ich möchte das einjährige Jubiläum Ih- 
rer Zeitschrift zum Anlaß nehmen, zu 
einigen Themen der letzten Zeit Stel- 
lung zu nehmen. 

Die geringe Resonanz auf das Pascal- 
Preisausschreiben erscheint mir nicht 
weiter verwunderlich. Der extrem hohe 
Preis des Apple-UCSD-Systems wird 
meines Erachtens viele Leser von ei- 
nem Kauf abgehalten haben. Wer das 
UCSD-P-System kennt, wird überdies 
wenig Lust an Pascal bekommen. Ohne 
die Vorteile dieses Systems leugnen zu 
wollen, scheinen mir die Nachteile — 
Geschwindigkeit, Diskettenorientie- 
rung, Pseudocode - für den Hobbyisten 
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zu überwiegen. Die Portabilität der Pro- 
gramme allein ist zumindest für mich 
kein Kaufanreiz gewesen. Wer das Tur- 
bo-Pascal-System kennt, wird sich wohl 
kaum weiter für Apple-Pascal interes- 
sieren. Der Wechsel vom Editor in den 
Compiler, die Compilierung selbst, all 
das ist in einer phantastischen Ge- 
schwindigkeit möglich. Hinzu kommt 
die Möglichkeit, CP/M-Command-Files 
zu erzeugen, die unabhängig vom Tur- 
bo-Pascal arbeiten können, ein unbe- 
streitbarer Vorteil. Selbst mit einer Z80- 
Karte ist das Turbo-Pascal-System 
noch immer günstiger als das Apple- 
UCSD-System. 

Georg Basse, Oldenburg 


Pascal in der Schule 

In der September-Ausgabe des Peeker 
veröffentlichten Sie die Gewinner des 
Pascal-Preisausschreibens und beklag- 
ten gleichzeitig die geringe Beteiligung. 
Damit verbinden Sie die Frage an die 
Leser, ob in Zukunft weniger Pascal- 
Aufsätze im Peeker abgedruckt werden 
sollen. Aus meiner Sicht kann ich nur 
sagen: Lieber wäre mir mehr Pascal. Ich 
bin Lehrer und unterrichte auch Infor- 
matik. In den Lehrplänen des Landes 
Rheinland-Pfalz ist der Informatikunter- 
richt ganz auf Pascal abgestellt. Aller- 
dings muß man auch dazu wissen, daß 
Informatik nicht gleichbedeutend mit ei- 
nem Programmierkurs sein kann und 
darf. 

Daraus erklärt sich auch, daß zwar viele 
Schüler Grundkenntnisse in Pascal ha- 
ben, mehr aber auch nicht. Im Normal- 
fall hat der Schüler, der Informatik ge- 
wählt hat, keinen pascal-fähigen Com- 
puter zu Hause, auf dem er sich die 
notwendige Übung für das UCSD-Be- 
triebssystem holen kann. Bei zwei oder 
drei Stunden Unterricht pro Woche 
bleibt dafür in der Schule auch wenig 
Zeit. Der „normale“ Informatikschüler 
(ich spreche hier nicht von dem 
„Freak“) ist also kaum in der Lage, Auf- 
gaben von der Schwierigkeit Ihres 
Preisausschreibens zu lösen. 

Wenn Sie diesen Schülern — und auch 
den meisten Lehrern — mit Ihrer Zeit- 
schrift helfen wollen, dann bringen sie 
weiter Pascal-Aufsätze, und Sie können 
ruhig vom Niveau etwas weniger hoch 
sein. Von Zeit zu Zeit könnten auch 
manche Begriffe noch einmal erklärt 
werden. Das gilt übrigens nicht nur für 
Pascal-Aufsätze. Nicht jeder Leser Ihrer 
Zeitschrift weiß, was z.B. „Patch“ oder 
„Double-Hires“ ist. Und Ihre Redakteu- 
re haben ja bereits bewiesen, daß sie 
Ihr Handwerk verstehen. 

Ansonsten kann ich mich eigentlich nur 
dem Lob anschließen, das z.B. aus den 
Leserbriefen der September-Ausgabe 
herauszuhören ist. Ich weiß natürlich 
auch, daß es außer dem von mir ge- 
nannten Adressatenkreis auch die vie- 
len Bastler, Tüftler usw. gibt, für die Sie 
anders schreiben müssen. Aber viel- 
leicht kann man es hier doch mal allen 
recht machen. 

Jürgen Kettner, Vallendar 


Pascal-Interna wenig bekannt 

Der mangelnde Zuspruch auf Ihr Pas- 
cal-Preisausschreiben hat meiner Mei- 
nung nach folgene Ursachen: 


1. Da ProDOS seine Vorteile nur bei 
sehr großen Datenmengen voll aus- 
spielen kann, die bei den meisten Hob- 
by-Programmierern einfach nicht anfal- 
len, dürfte das Interesse an ProDOS 
schon verhältnismäßig gering sein. 


2. Die Pascal-Diskettenorganisation ist 
nahezu vollständig unbekannt und 
schreckt daher viele davon ab, Low- 
Level-Prozeduren zu benutzen. 

3. Es ist beinahe unmöglich, mit dem 
Pascal-System in Assembler zu pro- 
grammieren, da 

a) keinerlei Systemroutinen bekannt 
sind; 

b) es keinerlei Beispielprogramme gibt, 
die auch nur den Einsatz der diversen 
Befehle einigermaßen erklärt; 

c) man nie genau weiß, wohin man denn 
die Routinen schreiben soll, onne daß 
sie Gefahr laufen, zerstört zu werden; 
d) es keine Beispiele gibt, in denen 
erklärt wird, wie die Parameter wieder 
korrekt zurückgegeben werden müssen 
(bes. Strings, Arrays, Reals); 

e) mir keine Routine bekannt ist, die mir 
z.B. den Typ eines „typlosen“ Parame- 
ters angibt, somit ist diese Möglichkeit 
der Parameterübergabe für mich voll- 
kommen wertlos. 

Aus diesen o.g. Gründen würde ich es 
begrüßen, wenn Sie Ihre Pascal-Serie 
weiter fortsetzen würden und wenn ir- 
gend möglich auch dazu beitragen, die- 
ses Informationsdefizit zu füllen. 
Konkret würde mich derzeit folgendes 
interessieren: Simulieren einer Pascal- 
STR-Funktion unter Benutzung der ent- 
sprechenden BASIC-ROM-Routine. 
Gerd Grammel, Wiernsheim 


Quelltextkürze sinnlos 

Der neueste Peeker ist wieder voll inter- 
essanter Beiträge, die sich qualitativ 
wohltuend von denen anderer Fachzeit- 
schriften unterscheiden. Ihre Anmer- 
kungen zum Pascal-Preisausschreiben 
haben mich allerdings ziemlich getrof- 
fen, daher kann ich mir einen Kommen- 
tar nicht verkneifen. Ich programmiere 
seit über zwei Jahren UCSD-Pascal und 
bin wohl fortgeschritten genug, auch 
komplizierte Probleme lösen zu kön- 
nen. Zwei Dinge haben mich jedoch an 
einer Teilnahme gehindert: 

1. Ich kenne den Aufbau des ProDOS- 
Inhaltsverzeichnisses noch nicht. 

2. Die Forderung eines möglichst kur- 
zen Quellcodes erscheint mir absolut 
sinnlos. Mir ist ein mehrseitiges, gut 
kommentiertes Pascal-Programm tau- 
sendmal lieber als dieser unästhetische, 
undurchsichtige Quellcode. 

Norbert Dörner, Langenhahn 


Pascal-Assembler statt 

Peeks und Pokes 

Sicherlich ist Pascal bei den Apple-Be- 
sitzern nicht so verbreitet wie BASIC, 
aber es ist sicherlich nicht so, daß die 
Pascal-Programmierer eine sehr kleine 
Gruppe sind. Die von Ihnen angeführ- 
ten Gründe für das geringe Echo auf 
das Pascal-Preisausschreiben sind mei- 
nes Erachtens nicht ausschlaggebend, 
wenn sie auch zutreffend sein mögen. 
Ich möchte nun Gründe nennen, die 
aus meiner Sicht zutreffender sind: 

1. Für das Preisausschreiben wurde ein 
sehr ungünstiger Zeitpunkt gewählt, 
denn in ganz Deutschland war vom Er- 


scheinen des Heftes Nr. 7/85 bis zum 
Einsendeschluß am 22.07.1985 Ferien- 
zeit, somit waren wenige der potentiel- 
len Teilnehmer zu Hause und hatten 
Zeit, sich zu beteiligen. 

2. Die Voraussetzung 1 erscheint mir 
nicht konsequent genug zu sein. Es hät- 
te, wenn schon gepokte Maschinenrou- 
tinen erlaubt sind, auch die Benutzung 
des Assemblers und somit auch die des 
Linkers zum Einbinden von Maschinen- 
routinen gestattet sein sollen, denn was 
spricht dagegen, das Pascal-System 
voll auszunutzen? Die Erweiterung die- 
ser Voraussetzung hätte natürlich zur 
Folge gehabt, daß die Lösungen haupt- 
sächlich in Assembler geschrieben wor- 
den wären, womit das Preisausschrei- 
ben kein Pascal-Preisausschreiben 
mehr gewesen wäre. Deswegen hätte 
die Bedingung restriktiver sein müssen, 
sie hätte auch gepokte Maschinenrouti- 
nen verbieten müssen. 

3. Die Vorschrift zur Berechnung der 
Punkte hätte nicht die Länge der Sour- 
ce-Codes beinhalten sollen, denn dies 
führt zu Programmen, die in ihrem Er- 
scheinungsbild dem Konzept von Pas- 
cal widersprechen. Dies hat sich ja in 
dem im Peeker Nr. 9/85 veröffentlichten 
Programm gezeigt. 

4. Ein weiterer gravierender Nachteil 
des Preisausschreibens war die Aufga- 
be selbst, da sie voraussetzte, daß wei- 
tergehende Kenntnisse von zwei Be- 
triebssystemen vorhanden sein 
müssen. 

Jetzt möchte ich noch auf meine per- 
sönliche Erfahrungen mit dem Pascal- 
Preisausschreiben eingehen. Bei mir 
stellte sich beim Kauf des Peeker Nr. 7/ 
85 eine starke Euphorie ein, als ich vom 
Pascal-Preisausschreiben las, da ich ein 
begeisterter Pascal-Programmierer bin. 
Bei näherer Betrachtung stellte sich bei 
mir allerdings eine starke Enttäuschung 
ein, die sich durch die oben genannten 
Gründe belegen läßt, zumal ich auch 
nicht im Besitz von ProDOS bin. Im 
großen und ganzen scheint mir, daß das 
Pascal-Preisausschreiben nicht richtig 
durchdacht war, was ich von Ihrer Zeit- 
schrift nicht erwartet hätte. Dies ändert 
allerdings nichts an dem positiven Ein- 
druck am Peeker, den ich während der 
Zeit gewonnen habe, in der ich zu den 
Lesern des Peeker zähle. 

Ich hoffe, daß die Reaktion auf das Pas- 
cal-Preisausschreiben beim Peeker 
nicht zur Vernachlässigung von Pascal 
führt. Ich persönlich wünsche mir mehr 
über Pascal, speziell über das Betriebs- 
system. 

Arno Zietz, Hamburg 


Pascal 1.2 veraltet 

Mehr Beiträge über Pascal, das ist Ihre 
Frage. 

Mein Antwort: ja, aber... 
Computersprachen und Betriebssyste- 
me sind eine Glaubensfrage, welche oft 
zur Weltanschauung erhoben wird. Wo 
liegen nun die Möglichkeiten von 
Pascal? 

1. Strukturierte Programmierung, 

2. Strukturierte Daten, 

3. Modulares Konzept. 

Das erste wird oft gerühmt und nachge- 
ahmt (Fortran 77, Ratfor, neuere BA- 
SIC-Dialekte), aber Punkt 2 und 3 wer- 
den oft völlig unterschlagen und werden 
wohl auch nie so richtig kohärent in 
andere Sprachen eingebaut werden 
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können. Man kann auch zusammenfas- 
send sagen, daß Pascal ein Konzept zu 
Grunde liegt, wogegen besonders die 
0.9. Sprachen aus der Steinzeit der 
Computer stammen und eher eine An- 
häufung von Regeln darstellen. Wo lie- 
gen nun die Vorteile von UCSD-Pascal? 
4. Ohne Z80-Karte auf Ile und Ilc lauf- 
fähig, 

5. Flexibel und ausbaufähig etc., aber 
nicht mehr State of the Art. Es gibt für 
andere Rechner immerhin schon die 
Version 5.2 und nicht erst eine popelige 
1.2. Es ist viel zu teuer. All das und 
vieles mehr hängt wohl mit der merk- 
würdigen Firmenpolitik von Apple zu- 
sammen, wenn Apple überhaupt eine 
hat. 

Dipl.-Ing. Peter Klamser, Goslar 


Pascal, ProDOS und Schule 

Zur Auflösung der Programmieraufgabe 
ProDOS nach Pascal und der Artikelse- 
rie über Pascal von Dieter Geiß habe ich 
einige Anmerkungen zu machen. 

Ich glaube, daß die Aussage aus Ihrem 
Artikel, daß Pascal bei den Lesern des 
Peeker keinen so großen Anklang oder 
keine so große Verbreitung hat, nicht 
unwidersprochen hingenommen wer- 
den kann. Meiner Ansicht nach hat si- 
cher ein großer Anteil der Leserschaft 
Interesse an der Sprache und der Lö- 
sung von Problemstellungen. Allerdings 
war die Programmieraufgabe von einer 


etwas seltsamen Gestalt, so daß mich 
die geringe Resonanz nicht im minde- 
sten verwundert hat. In meinem weite- 
ren Bekanntenkreis, der sich durchaus 
intensiv mit der Programmierung in Pas- 
cal befaßt, hat sich niemand gefunden, 
der auch nur im geringsten an einer 
Lösung für ein Transferprogramm von 
ProDOS nach Pascal Interesse bekun- 
det, weil niemand mit ProDOS und Pas- 
cal simultan arbeitet. Das liegt sicherlich 
nicht unbedingt an ProDOS, sondern 
daran, daß Applesoft-BASIC eine Pro- 
grammiersprache darstellt, die nicht als 
Ideal zur Lösung größerer Program- 
mieraufgaben betrachtet werden kann 
und somit die Verwendung des Pascal- 
Editors zur Editierung von BASIC-Pro- 
grammen ausscheidet, da größere Pro- 
gramme sowieso besser in Pascal ge- 
schrieben werden. Allerdings finden die 
0.9. Anwender das Arbeiten mit Pro- 
DOS auch nicht so einfach wie etwa das 
Arbeiten unter DOS 3.3 und Ablegern, 
da Disketten- und Dateienansprache 
nicht vereinfacht, sondern eher verkom- 
pliziert wurden. Des weiteren fehlt be- 
stimmt vielen Pascal-Programmierern 
der tiefere Einblick in das ProDOS-Be- 
triebssystem, da sie sich aus den 0.g. 
Gründen nicht damit zu beschäftigen 
brauchen und wollen. Die einzige vor- 
stellbare Anwendung eines Transfer- 
programms von ProDOS nach Pascal 
wäre die Übertragung von Appleworks- 


Dateien, wobei hier allerdings die even- 
tuelle Verwendung von Steuercodes im 
Text die Übertragbarkeit stark ein- 
schränken würde und somit die Erstel- 
lung von Texten im Pascal-Editor sinn- 
voller erscheint. 

Zu dem von Ihnen angesprochenen 
Thema Pascal an Schulen wäre einiges 
zu sagen. 

Daß Pascal an den Schulen nicht bis zur 
Perfektion gelehrt wird, ist durchaus 
korrekt. Man kann dieses Manko aller- 
dings nicht den Schulen anlasten, da 
der Lehrauftrag der Schulen nicht darin 
besteht, perfekte Pascal-Programmierer 
auszubilden, sondern Pascal nur als 
Beispiel für eine höhere Programmier- 
sprache in seinen Grundzügen behan- 
delt und gelehrt werden kann. Hier den- 
ke ich auch, daß Pascal mehr oder we- 
niger zufällig als Sprache nur ausge- 
wählt wurde, da Pascal auf beinahe allen 
Mikrocomputern implementiert ist und, 
noch wichtiger, durch seine Strukturie- 
rung zu einem überlegten Programmie- 
ren und einem relativ sauberen Pro- 
grammierstil erzieht. Hieraus resultiert 
eine vergleichsweise (z.B. zu BASIC) 
einfache Nachvollziehbarkeit der Pro- 
grammierschritte und somit die ideale 
Eignung als Sprache für den Unterricht. 
Wenn eine andere Sprache diese Vor- 
aussetzungen erfüllt hätte, so wäre si- 
cherlich jene Sprache zur Schulpro- 
grammiersprache Nummer eins gewor- 


den. In dieser Eigenschaft stellt Pascal 
nur einen kleinen Teil des Lehrplanes 
neben der theoretischen Informatik und 
einer Einführung in die Assemblerpro- 
grammierung dar. 


Als letzten Punkt möchte ich noch die 
sehr interessanten Artikel von Herrn 
Geiß ansprechen. Sie sind von hohem 
Nutzen für den Anwender, der sich tie- 
fer mit Pascal befaßt. Nur vermisse ich 
immer Hinweise auf die Quellen des 
Wissens, so daß manche Artikel etwas 
undurchsichtig bleiben. Es kann doch 
nicht angehen, daß das Wissen nur 
durch die allgemein bekannte Pascal- 
Literatur kommt, da hier eine sehr de- 
taillierte Kenntnis des Systems vorliegt, 
die ich noch nirgends beschrieben ge- 
sehen habe. Soll man doch der armen, 
unwissenden Leserschaft die Chance 
geben, über die paar Krümel hinaus, die 
durch die Artikel verteilt werden, etwas 
mehr an Wissen zu erlangen und nicht 
eine Art Abhängigkeit zu schaffen, die 
ich persönlich nicht als sehr angenehm 
empfinde. 

Adrian Meissner, Trier 
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MICROMINT 16 
100% XT-IBM° comp. 


MICROMINT 
7 — Zukünftiges heute — 


@ modernste System-Architektur 

@ Micromint high Speed Bootrom: Bootzeit 20 sec. 
Testbereich 3-fach erweitert 

© Tastatur: kapazitiv, programmierbar 

@ Platine: XT - 100% IBM®-Compatible, 


640 K Mainboard, 
mit 256 K bestückt, voll gesockelt 


8 Slots, vergoldet, 
8088 Prozessor, 8087 optional, 
Bootrom, herausragende Qualität 
@ Taktfrequenz 4,77 MHz 
@ 1 x Mitsubishi Laufwerke 
@ Multi /O Card incl. Printeranschluß 
u. Controlleranschluß 
@ Herculescard incl. Printer-Anschluß 


Preis incl. MwSt. 


DM 2.211» 


25 MHz Monitor: TTL-+ Video-Chinch-Anschluß für Commodore, IBM, Atari DM 311.— 
Achtung! Lieferbar ab Januar ’86: 
RGB-Farbmonitor 14 MHz für sämtliche Computersysteme DM 499.- 
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INTUS-Lernprogramme 


für Apple Il - Computer 
e Englisch/Deutsch 
Wortschatztrainer 


e Sell it in English, 
Verkäuferenglisch 


e Bankers wits, 
Bankenenglisch 


DM 98,- 
DM 125,- 


DM 125,- 


e Computer slang, 
Computerenglisch 


e Rechtschreibtrainer 
für Deutsch 


e Maschineschreiben 
wie der Blitz 


e Basic-Lernprogramm, 
sehr umfangreich DM 295,- 


e und über 200 weitere Programme. 
Katalog gratis 


e Demo-Disketten 
mit 5-9 Teilprogrammen DM 10,- 


e 6000 Frei-Programme (fast) gratis 
Programm-Liste (Vorkasse) DM 10,- 


DM 125,- 
DM 125,- 


DM 188,- 


N 
INTUS SOFTWARE 


Kaiserstr. 21, 7890 Waldshut, 
Tel. 07751-7920 


Der nächste 
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am 
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Jahresinhaltsverzeichnis 


Peeker 1/84 bis 12/85 


Das nachfolgende Jahresinhaltsver- 
zeichnis ist nach Heften und innerhalb 
der Hefte nach Rubriken gegliedert. 

Ein gesonderter Textfile mit einem 
Suchprogramm für Apple Il+, Ile und Ilc 
ist auf der Peeker-Sammeldisk # 12 
enthalten. Das Sachprogramm wird mit 
RUN WORT.SUCHER gestartet. 


Rubriken 


Applesoft 
Assembler 
Buch 

CP/M 

DOS 3.3 
Drucker 
Grafik 
Händler-Profil 
Hardware 
Hobby 
Leserbriefe 
Kurzbericht 
Macintosh 
MBASIC 
Nachtrag 
Pascal 
ProDOS 
Produkt 
Recht 
Schule 
Telekommunikation 
Test 

Turbo 
Vermischtes 
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Hardware: Der neue 65C02-Prozessor. 
Ulrich Stiehl. 1/84/6 

Assembler: 65C02-Disassembler für 
Apple Ile und Il Plus. Ulrich Stiehl. 1/84/ 
14 

Hardware: Accelerator Ile. Die neue Su- 
perkarte. Ulrich Stiehl. 1/84/19 
Applesoft: Applesoft simuliert Turtle 
Graphic. Harald Grumser. (Ergänzung 
2/84/10) 1/84/26 

Grafik: Wie man die Grafik verdoppelt. 
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Teil 1: Double Lores. Ulrich Stiehl. 1/ 
84/32 

Drucker: Hires-Grafik-Dump für Epson- 
drucker. Jürgen und Dieter Geiß. 1/84/ 
40 

Turbo: Turbo-Pascal Schritt für Schritt. 
Dr. Ekkehard Kaier. 1/84/51 

ProDOS: ProDOS-Patch für geänderte 
F8-ROMs. Ulrich Stiehl. (Ergänzung 2/ 
84/10) 1/84/54 

ProDOS: Patch für ProDOS.INIT 80 
Spuren. Hans-Georg Hüneke. 1/84/56 
Hobby: Wer ist der Schnellste? Prim- 
zahlen-Preisausschreiben. 1/84/58 
Vermischtes: Hinweise für Autoren. 1/ 
84/62 

Produkt: Individuelle Zeichensätze für 
Matrixdrucker (DMP-Charger). 1/84/63 
Produkt: AFC-Tastatur mit Maus für Ap- 
ple. 1/84/63 

Produkt: Copy Killer (Kopierschutzsy- 
stem). 1/84/64 

Produkt: Sony-Laufwerke von Ueding. 
1/84/64 

Produkt: 65C02 + Accelerator: Wer lie- 
fert was? 1/84/64 

Produkt: Bidirektionaler Datenverkehr 
zwischen Apple und Brother-Typenrad- 
schreibmaschine. 1/84/64 


Buch: Apple DOS 3.3. 1/84/65 

Buch: Mathematische + Wissenschaft- 
liche Programme in Basic. 1/84/65 
Buch: Statistik in Basic. 1/84/65 

Buch: Apple Il leicht gemacht. 1/84/65 
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Leserbriefe: 2/84/8 

ProDOS: ProDOS für Anfänger. Teil 1: 
Was ist ProDOS? Ulrich Stiehl. 2/84/12 
ProDOS: Was Geschäftsleute vom Pro- 
DOS-FILER wissen sollten. Ulrich 
Stiehl. 2/84/20 

Grafik: Wie man die Grafik verdoppelt. 
Teil 2: Double Hires. Karl-Walter Bott. 
2/84/24. Vgl. 1/84/32 
Telekommunikation: Modems kommen 
in Mode. Praktische Ratschläge für die 





Telekommunikation mit Modem. Mat- 
thias Pohl. 2/84/36 

Applesoft: Ampersand macht's möglich. 
INSTRING-Befehl in Applesoft. Dr. Jür- 
gen B. Kehrel. 2/84/40 

Applesoft: IF-THEN-ELSE-Befehl simu- 
liert in Applesoft. Franz-Josef Hüskens. 
2/84/48 

Applesoft: Wie man Arrays löscht. Chri- 
stiane Breit und Thomas Schneyer. 2/ 
84/51 

Macintosh: Microsoft Basic leicht ge- 
MACht. Teil 1: Operanden und Opera- 
toren. Pit Capitain. 2/84/54 

Test: Gestochen scharf. Die Videokarte 
UltraTerm für den Apple Il. Dieter und 
Jürgen Geiß. 2/84/60 

Hardware: Prometric. Ein Apple-Kom- 
patibler mit 65C02C. Ulrich Stiehl. 2/84/ 
64 

Test: S.A.M. The Software Automatic 
Mouth oder wie man den Apple zum 
Sprechen bringt. Ralf Augspurger. 2/ 
84/66 

Händler-Profil: r + r electronik. 2/84/69 
Hobby: Die Gewinner des Primzahlen- 
Wettbewerbs. 2/84/70 

Vermischtes: Hinweise für Autoren. 2/ 
84/72 

Test: Diskettenlaufwerke für ProDOS im 
Test. Ulrich Stiehl. 2/84/74 

Produkt: Atari-Joystick und Apple. 2/ 
84/75 

Produkt: MacLabel. 2/84/75 

Produkt: CTS-Mineralöl. 2/84/75 

Buch: BASIC Übungen für den Apple. 
2/84/76 

Buch: Bücher für Elektronik + Compu- 
ter. 2/84/76 

Buch: Schulsoftware-Katalog. 2/84/76 
Buch: The Apple in your hand. 2/84/76 
Buch: Apple Il Tips & Tricks. 2/84/76 
Buch: Apple ProDOS für Aufsteiger 
(Band 1). 2/84/78 

Buch: Apple Maschinensprache. 2/84/ 
78 

Buch: Apple Assembler. 2/84/78 

Buch: Pandasoft-Katalog. 2/84/78 


# 


MAGAZIN FÜR APPLE-COMPUTER 


1/2 - 85 

Poor Man's RAM-Disk 

Die RAM-Karten von IBS 
Universal-Modem W5 2000 nn 
Quicksopy für roDOS \ 
Garbage-Collechon 

Poascol-Diresiäry 

Ikonen und Deixis 
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DOS 3.3: Poor Man’s RAM-Disk. RAM- 
Disk-Driver für die Language Card. Ul- 
rich Stiehl. (Ergänzung 6/85/69) 1-2/ 
85/8 

Technik: Die RAM-Karten von IBS. Mit 
Quellcode eines RAM-Disk-Drivers. Ul- 
rich Stiehl. 1-2/85/18 

ProDOS: QUICKCOPY. Ein schnelles 
ProDOS-Kopierprogramm für 35-80 
Spuren. Ulrich Stiehl. 1-2/85/22 
ProDOS: ProDOS und „Kompatible“. 
Ein allgemeines Patch-Programm. Arne 
Schäpers. (Berichtigung in Leserbrief 
10/85/69) 1-2/85/31 

Applesoft: Müllabfuhr wie ein Blitz. Eine 
ultraschnelle Garbage-Collection-Routi- 
ne. Harald Grumser. (Berichtigung 8/ 
85/70) 1-2/85/32 

Assembler: Speichern Sie den Bild- 
schirm ab! Organisation des 40-Z/Z- 
Apple- und des 80-Z/Z-Videx-Bild- 
schirms. Dr. Jürgen B. Kehrel. 1-2/85/ 
42 

MBASIC: Lohn- und Einkommensteuer 
1984. Ein umfassendes CP/M-MBA- 
SIC-Programm. Volker Duske. 1-2/85/ 
45 

Pascal: Pascal-Diretory unter der Lupe. 
Dieter Geiß. 1-2/85/64 

Pascal: GETPAS: Konvertierung von 
Pascal- in DOS-Textfiles. Ulrich Stiehl. 
1-2/85/68 

Pascal: GETDOS: Konvertierung von 
DOS- in Pascal-Textfiles. Jürgen Geiß. 
1-2/85/70 

Macintosh: Ikonen und Deixis oder die 
Philosophie des Macintosh. Ulrich 
Stiehl. 1-2/85/74 

Macintosh: Microsoft Basic leicht ge- 
MACht. Teil 2: Funktionen und Pro- 
grammsteuerbefehle. Pit Capitain. 1-2/ 
85/78 

Telekommunikation: Weltweite Daten- 
übertragung mit dem WS 2000. Ein Uni- 
versalmodem für alle Normen. Matthias 
Pohl. 1-2/85/84 

ProDOS: Applesoft-Editor-Macros. Ein 
Quickie für den PRODOS.EDITOR. Ul- 
rich Stiehl. 1-2/85/86 

Test: Exbasic Level Il im Test. Eine Ba- 
sic-Erweiterung bringt Sie ins Staunen, 
nicht nur positiv. Dr. Jürgen B. Kehrel. 
1-2/85/88 

Vermischtes: Hinweise für Autoren. 1- 
2/85/92 

Buch: Das Buch zum Apple Il. 1-2/85/ 
93 

Buch: Programmierung des 6502. 1-2/ 
85/93 

Buch: 6502 Anwendungen. 1-2/85/93 
Buch: Apple II ROM Listing. 1-2/85/93 
Buch: Fortgeschrittene 6502 Program- 
mierung. 1-2/85/94 

Buch: Macintosh Benutzerhandbuch. 1- 
2/85/94 

Produkt: Doppel-Parallelinterface mit 
RAM oder EPROM. 1-2/85/96 

Produkt: Modula-2 für den Macintosh. 
1-2/85/96 
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Produkt: 64K-Karte für Ile. 1-2/85/96 
Produkt: Staub und Schmutz auf Com- 
puter und Tastatur? 1-2/85/97 


Produkt: TempoHexe „SpeeDemon“ 
65C02C-Prozessorkarte. 1-2/85/97 
Produkt: Lohn- und Gehaltsabrech- 
nung. 1-2/85/97 

Produkt: Lotus — Jazz, ein multifunktio- 
nales Software-Paket. 1-2/85/97 
Produkt: Branchenprogramm Reisebü- 
ro. 1-2/85/97 

Produkt: UCSD p-System für den Mac- 
intosh. 1-2/85/97 

Produkt: STATEX für Bildschirme. 1-2/ 
85/97 

Produkt: Computerunterstütztes Ler- 
nen. 1-2/85/99 

Produkt: Mailmerger für AppleWorks. 1- 
2/85/99 

Vermischtes: Apple User Club Austria. 
1-2/85/99 

Vermischtes: Apple-Diebe am Werk. 1- 
2/85/99 
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Technik: Der Apple Il als persönliches 
Ingenieurwerkzeug. Dipl.-Ing. Bernd 
Worms. 3/85/6 

Hardware: Aufbau und Funktion von 
Diskettensystemen. Dipl.-Ing. Gerhard 
Berg. 3/85/10 

Schule: Testgenerator für Legastheni- 
ker. Dr.Wolfgang Kersken. 3/85/22 
Schule: Höhere Präzision bei den vier 
Grundrechenarten. Konrad Steinmeier. 
3/85/30 

CP/M: Wordstar-Transfer-Refiner. Kon- 
vertierung von CP/M-Wordstar- in 
DOS-Applewriter-Textfiles. Dr. Jürgen 
B. Kehrel. 3/85/35 
Vermischtes: Apple-Hotline. 
Stiehl. 3/85/35 

CP/M: GETCPM: Konvertierung von 
CP/M- in DOS-Textfiles. Applesoft-Ver- 
sion. Thomas Fink. 3/85/43 

Macintosh: Die Maske fällt und Mecki 
seh’ ich nun, entblößt von allen Reizen. 
Der Macintosh im Leistungstest. Ulrich 
Stiehl. 3/85/44 

Hobby: Geschwindigkeit ist keine He- 
xerei. Erastosthenes erneut betrachtet. 
Michael G. Schneider. 3/85/56 

Test: Pascal 1.2 Evolution statt Revolu- 
tion. Claus Rautenstrauch. (Ergänzung 
10/85/60) 3/85/65 

Hardware: Accelerator-Karte abstellen. 


Ulrich 
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Ulrich Stiehl. 3/85/66 

Test: Double-Hires-Grafik-Programme. 
Doublestuff Plus. Thomas Bühner. 3/ 
85/70 

Test: Double-Hires-Grafik-Programme. 
Superplot. Anmerkung von Ulrich 
Stiehl. 3/85/70 

Test: Hardbreaker und Softbreaker oder 
wie man Programme „entschützt“. Ul- 
rich Stiehl. 3/85/72 

Produkt: Beliebte Apple-Spiele. 3/85/ 
73 

Test: Memdos Junior. Ein neues Be- 
triebssystem für den Apple Il. Dr. Jür- 
gen B. Kehrel. 3/85/75 

Test: CP/M-Karte für den Apple Ilc. Dr. 
Jürgen B. Kehrel. 3/85/75 

Test: HOCO-Masterclock. Arne Schä- 
pers. 3/85/76 

Leserbriefe: 3/85/77 

Vermischtes: Große Peeker-Umfrage. 
3/85/78 





Heft 4/85 


Recht: Knock, Knock! Who’s there? 
Software und Kopierrecht. Ulrich Stiehl. 
4/85/6 

Grafik: Graf-quattro. Künstlerische Gra- 
fik für jedermann. Teil 1: Wie ein Super- 
editor entsteht. Nino G. Barbieri. 4/85/ 
14 

Applesoft: Menü-Generator für den Ap- 
ple Il. Dr. H. Kersten. 4/85/20 
Assembler: Makros für die neuen Be- 
fehle des 65C02. Dipl.-Oec. Edgar 
Meyzis. 4/85/30 

Drucker: SCREEN80. 80-Z/Z-Bild- 
schirm-Dump. Ulrich Stiehl. 4/85/33 
Telekommunikation: Terminal-Pro- 
gramm für den Apple Il. Andreas Le- 
creux. (Ergänzung 6/85/72) 4/85/34 
ProDOS: ProDOS für Anfänger. Teil 2: 
Das definitorische Grundgerüst. Ulrich 
Stiehl. 4/85/41 

ProDOS: Trace-Bug. 4/85/46 

ProDOS: PRODOS.READER. 4/85/46 
Pascal: Apples Maus lernt jetzt auch 
Pascal. Jürgen Geiß. 4/85/48 

CP/M: CP/M für Einsteiger. Jörg Lange. 
4/85/59 

Macintosh: Microsoft Basic leicht ge- 
MACht. Teil 3: Die Ein- und Ausgabe. 
Pit Capitain. 4/85/63 

Händler-Profil: Orgasoft plant für die 
Zukunft. 4/85/67 


Kurzbericht: Auf dem Abstellgleis: 
Steve Wozniak. 4/85/68 

Kurzbericht: AUGE und Apple-Mün- 
chen. 4/85/68 

Kurzbericht: Ergänzungen zu „ProDOS 
für Aufsteiger“, Bd. 1. Arne Schäpers. 
4/85/69 

Kurzbericht: ProDOS-Bücher und -Auf- 
sätze 4/85/69 

Kurzbericht: Apple-Bücher im Preisver- 
gleich. 4/85/70 

Applesoft: INALL. INPUT für DOS/Pro- 
DOS. (Berichtigung 5/85/50) 4/85/70. 
Leserbriefe: 4/85/72 

Test: Mailmerger und Appleworks. Ul- 
rich Stiehl. 4/85/73 

Test: Erphi-Controller. Eine kompatible 
Erweiterung. Harald Grumser. 4/85/75 
Produkt: INTERTEXT. Internationale 
Textautomation mit dem Apple Ile. 4/ 
85/76 

Applesoft: SCREEN80.SAVER. Ulrich 
Stiehl 4/85/76 

Produkt: Akustikkoppler AK 300. 4/85/ 
77 

Produkt: Akustikkoppler dataphon s-21- 
d. 4/85/77 

Produkt: Parallelportkarte für Apple Il. 4/ 
85/77 


un 
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DOS 3.3: Der File-Manager des DOS 
3.3. Harald Grumser. 5/85/6 

Hardware: Balfer-Interface. RAM-Disk- 
Driver für Apple Ile. Ulrich Stiehl. 5/85/ 
12 

Grafik: PLOT 2.0. Ein komfortabler 
Funktionsplotter. Hans-Martin Eng. (Be- 
richtigung 9/85/69) 5/85/17. 

Grafik: CONVERT560. Konvertierungs- 
routine für Double-Hires-Drucker- 
Dump. Marc van Woerkom. 5/85/25 
Assembler: Disassembler für „gehei- 
me“ 6502-Opcodes. Christoph Bregler. 
5/85/31 

Pascal: Transzendente Funktionen in 
Pascal. Dieter Geiß. 5/85/35 

CP/M: Das CP/M-Directory näher be- 
leuchtet. Der Aufbau von 16-Sektor- 
CP/M-Disketten. Dr. Jürgen B. Kehrel. 
5/85/39 

Macintosh: Apple-Il-Monitor für den 
Mac. Wie zu Wozniaks Zeiten. Pit Capi- 
tain. 5/85/41 

Applesoft: INPUT für alle Fälle. Tastatur 
— DOS - ProDOS. Harald Grumser. 5/ 
85/50 
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ProDOS: Block-Tracer für ProDOS. Ul- 
rich Stiehl. 5/85/51 

ProDOS: FORMAT-Befehl für ProDOS. 
Ulrich Stiehl. 5/85/56 

Kurzbericht: Neologismen in der Com- 
putersprache. Ulrich Stiehl. 5/85/60 
Kurzbericht: Kopierschutz für den Ap- 
ple Il. Matthias Greve. 5/85/61 
Kurzbericht: Apple-Kompatible. Hans- 
Kurt Kuhn. 5/85/66 

Vermischtes: Hotline. 5/85/68 
Leserbriefe: 5/85/70 

Applesoft: RANDOM.DEMO. Random- 
Zahlen-Generator. Ulrich Stiehl. 5/85/ 
69 

Applesoft: COLUMN80.DEMO. VTAB- 
HTAB-Demo. Ulrich Stiehl. 5/85/69 
Test: Slim-Line-Laufwerk von Chinon. 
5/85/71 

Test: Druckerumschaltung per Knopf- 
druck. 5/85/71 

Test: The Last Disk-Utility. Ein umfang- 
reicher Disketteneditor. Harald Grum- 
ser. 5/85/72 

Assembler: Tabelle der Interpreter- und 
Monitor-Adressen. 5/85/72 
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Grafik: Graf-quattro. Teil 2: Schneller 
als der Schall. Nino G. Barbieri. (Ergän- 
zung 10/85/69) 6/85/6 

Grafik: Das Farbbit. Pseudo-Double-Hi- 
res auf dem Apple Il Plus. H.-D. Sie- 
wert. 6/85/16 

Grafik: Superdump. Das universelle Hi- 
res-Grafik-Dump-Programm. Jürgen 
Geiß. (Ergänzung 8/85/50) 6/85/22 
Drucker: Hardcopy auf Olympia ESW 
100 RO. Ein Typenraddrucker wird gra- 
fikfähig. Ralf Menssen. 6/85/34 
Technik: Fourier-Analyse. Peter Walber. 
(Berichtigung 9/85/69) 6/85/38 
Applesoft: Applesoft-Erweiterungen. Ei- 
ne Sammlung von Ampersand-Routi- 
nen. Markus Enzinger. 6/85/43 

Pascal: RAM-Disk-Driver für Pascal 1.1. 
Michael Schröter. (Berichtigung 7/85/ 
52) 6/85/48 

ProDOS: ProDOS. Theorie und Praxis. 
Ulrich Stiehl. 6/85/52 

CP/M: Apple-CP/M. Mit einem RAM- 
Disk-Driver für die 64K-Karte. Karl-Wal- 
ter Bott. 6/85/55 

Hobby: SOLITAIRE und wie man es 
löst. Stefan Maas. 6/85/64 

Leserbriefe: 6/85/69 

Kurzbericht: Wie gibt man Maschinen- 


73 





programme ein? 6/85/70 

Kurzbericht: An Ear to the Ground. Ul- 
rich Stiehl 

Test: Extended Graphic System. Dr. 
Jürgen B. Kehrel. 6/85/71 

Nachtrag: Terminal-Programm für die 
Super-Serial-Card. Andreas Lecreux. 
6/85/72 

Test: Diversi-DOS 4-C. Rudolf Röte- 
ring. 6/85/72 

Vermischtes: Diversi-DOS 2-C auf 
Peeker-Sammeldiskette #6. (Ergän- 
zung 10/85/69) 6/85/74 

Test: Lasar Il ze. Harald Grumser. 6/85/ 
78 

Test: Typenradschreibmaschine Bro- 
ther CE 50. Rainer Gerdes. 6/85/76 
Test: Editierhilfen für den Apple. Franz- 
Josef Hüskens. 6/85/77 

Test: Lernprogramme von INTUS. Dr. 
Jürgen B. Kehrel. 6/85/78 
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Hobby: Pyramid Pitty. Ein Reaktions- 
spiel. Michael Matzat. 7/85/6 

Technik: Die AP33-Megawarp-RAM- 
Karte. Mit einem RAM-Disk-Driver für 
ProDOS. Ulrich Stiehl. 7/85/8 

Technik: FORMATTER. Ein universelles 
Formatierungsprogramm. Arne Schä- 
pers. (Ergänzung 9/85/69) 7/85/20 
Technik: Bit-Editor. Zeichensatz- 
EPROMs für die Videx-Karte. Joachim 
Klamt. 7/85/29 

Assembler: 6502 leicht gemacht. Ulrich 
Stiehl. 7/85/33 

Nachtrag: Nachtrag zum Pascal-RAM- 
Disk-Driver. 7/85/52 

CP/M: Wordstar mit allen FX-80-Schrift- 
arten. Dipl.-Ing. H.A. Rohrbacher. 7/85/ 
57 

Hobby: Pascal-Preisausschreiben. 7/ 
85/62 

Kurzbericht: No Orchids für Miss Lisa. 
Lisa und die Folgen. Ulrich Stiehl. 7/85/ 
67 

Assembler: Hex-Dez-Konvertierung für 
32-Bit-Zahlen. Harald Grumser. 7/85/ 
69 

Assembler: Vorlesestunde. Apple und 
S.A.M., ein hilfreiches Gespann. Dr. 
Jürgen B. Kehrel. 7/85/71 

Leserbriefe: 7/85/73 

Test: MEGACORE. Festplatte mit 10 
MBytes. Harald Grumser. 7/85/76 
Test: Star Delta-10 und Grafstar-Inter- 
face. Karl-Walter Bott. 7/85/77 
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Technik: Testprogramm für Apple-Il- 
Diskettensysteme. Analyse von Disket- 
ten, Laufwerk und Controller. Dipl.-Ing. 
Gerhard Berg. 8/85/6 

ProDOS: ProDOS für Anfänger. Teil 3: 
Geheimnisse von BSAVE und BLOAD. 
Ulrich Stiehl. 8/85/18 

Grafik: Graf-quattro. Teil 3: Tricks über 
Tricks. Nino G. Barbieri. 8/85/24 
Grafik: Double-Lores-Applesoft-Erwei- 
terungen. Karl-Walter Bott. 8/85/32 
CP/M: Adreßverwaltungsprogramm mit 
dBASE Il. Ing. (grad.) Ernst Fischer. (Er- 
gänzung 10/85/21) 8/85/40 

CP/M: Wordstar druckt internationale 
Zeichensätze. Frei definierte Sonder- 
zeichen auf dem FX-80 nutzen. Dipl.- 
Ing. H.A. Rohrbacher. 8/85/45 

Pascal: Tips und Tricks in Pascal. Teil 1: 
Die versteckte Prozedur „Idsearch“ 
oder wie man Schlüsselwörter halbfett 
druckt. Dieter Geiß. 8/85/48 

Nachtrag: SUPERDUMP und Apple Ilc. 
8/85/50 

Assembler: Assembler-Pseudo-Op- 
code-Referenztabelle.e. Dr. Jürgen 
B. Kehrel. 8/85/51 
Assembler: Fakultäten. 
Manfred Fietkau. 8/85/56 
Macintosh: Microsoft Basic leicht ge- 
MACHt. Teil 4: Die Grafik. Pit Captain. 8/ 
85/60 

Hobby: Grafik- Demonstrationen. Ralf 
Knoke. 8/85/67 

Kurzbericht: Applepreise = Mondprei- 
se? Ulrich Stiehl. 8/85/67 

Nachtrag: Diversi-DOS 2-C. 8/85/68 
Hobby: Zeichenjagd. Ein Einzeiler. 
Hans-Peter Lendle. 8/85/69 

Test: Die Polaroid-Foto-Systeme. Tho- 
mas Bühner und Prof. Dr. Klaus Haus- 
mann. 8/85/71 

Produkt: Das Bildverarbeitungssystem 
MAGIC. 8/85/74 

Kurzbericht: Siemens entdeckt neue 
Primzahl. 8/85/74 

Produkt: TRICARD — Multifunktionskar- 
te für Apple Ile. 8/85/74 

Produkt: Copy-Killer jetzt in deutsch. 8/ 
85/76 

Produkt: Microfloppy mit2x 1 MByte. 8/ 
85/76 

Test: ProDOS-Debugger BUGBYTER. 
Dr. Jürgen B. Kehrel. 8/85/76 

Test: Beagle Graphics. Rolf W. Becker. 
8/85/77 


Roland und 
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Recht: Ave auctor, plagiarii te salutant. 
Software und Zitatrecht. Ulrich Stiehl. 9/ 
85/6 

Recht: Urheberrechtsnovelle. 
Stiehl. 9/85/11 

DOS 3.3: Ein neues FID für DOS 3.3. 
Mit Auto-FID für RAM-Disk-Besitzer. 
Harald Grumser. 9/85/12 

ProDOS: ProDOS-Fastboot oder wie 
man ProDOS in 6 Sekunden bootet. 
Arne Schäpers. Nach einer Idee von 
Ulrich Stiehl. 9/85/20 

Hardware: Super-HGR für NEC- und 
ITOH-Drucker. Rainer Hammerschmidt. 
9/85/30 

Applesoft: Umwandlung in Großbuch- 
staben. Harald Grumser. 9/85/31 
Assembler: Flag Monitor. Eine Taktzäh- 
ler-Utility. Michael G. Schneider. 9/85/ 
32 

Pascal: Tips und Tricks in Pascal. Teil 2: 
Kann man den P-Code optimieren? 
Dieter Geiß. 9/85/40 

MBASIC: MBASIC für den Applesoft- 
Profi. Jörg Lange. 9/85/48 

Hobby: Pascal-Preisausschreiben. Die 
Gewinner. 9/85/58 

Händler-Profil: HIB. Der Computerladen 
in Nürnberg. 9/85/59 

Test: Erfahrungsbericht OPERATOR |. 
Rainer Hammerschmidt. 9/85/60 

Test: Die OPERATOR Ile. Harald Grum- 
ser. 9/85/60 

Test: Dazzle Draw und Mousepaint. 
Dieter Charchot. 9/85/61 

Test: DMP-Charger — eigene Zeichen- 
sätze auf dem Matrixdrucker. Harald 
Grumser. 9/85/62 

Test: Apple Il/lle Assembler-Kurs. Dr. 
Jürgen B. Kehrel. 9/85/62 

Test: Deutsche Sprachausgabe für den 
Apple. Harald Grumser. 9/85/63 
Kurzbericht: 512K für Apple Ill. 9/85/64 


Ulrich 


Kurzbericht: Apple lle-Emulation für 
Apple Ill. 9/85/64 

Kurzbericht: Lisa/Mac-Screenswitcher. 
9/85/64 


Kurzbericht: 640K-Drive für IIc. 9/85/64 
Kurzbericht: Apple-Paketpreise. 9/85/ 
64 
Kurzbericht: 
64 
Kurzbericht: Mactablet. 9/85/64 
Kurzbericht: Macpack. 9/85/64 
Kurzbericht: Incircuit-Emulator. 9/85/64 
Kurzbericht: Erno Unibox. 9/85/65 


Apple-Geschichte. 9/85/ 





Kurzbericht: Apple-Kompatibler MK Il. 
9/85/65 

Kurzbericht: 20M-Festplatte für Mac. 9/ 
85/65 

Kurzbericht: Appletalk für Macintosh. 9/ 
85/65 
Kurzbericht: 
AULA. 9/85/65 
Kurzbericht: Laserwriter von Apple. 9/ 
85/65 
Kurzbericht: 
IIc. 9/85/65 
Kurzbericht: Spooler für Epson-Druk- 
ker. 9/85/65 

Kurzbericht: Transfer II Terminalpro- 
gramm. 9/85/65 

Kurzbericht: Druckertisch. 9/85/66 
Kurzbericht: Notstromaggregat. 9/85/ 
66 

Leserbriefe: 9/85/66 

Vermischtes: Paul Lutus im ZDF. 9/85/ 
68 

Vermischtes: Visicalc eingestellt. 9/85/ 
68 

Vermischtes: Pyramid Pitty als Hex- 
Dump? 9/85/68 

Nachtrag: Fourier-Analyse. 9/85/69 
Nachtrag: Formatter. 9/85/69 
Nachtrag: PLOT 2.0. 9/85/69 
Kurzbericht: Pressestimmen zur Wirt- 
schaftslage von Apple. 9/85/69 


Apple-Schul-Programm 


Design-Preise für Apple 
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Grafik: Graf-quattro. Teil 4: Der Grafik- 
Editor. Nino G. Barbieri. 10/85/6 
Grafik: Applesoft-Interpreter-Erweite- 
rungen für Double-Hires. Dr. Wolfgang 
Braun. 10/85/14 

Nachtrag: Tips zur Konvertierung der 
Adreßverwaltungs-Dateien von DOS 
3.3 nach CP/M. 10/85/21 

Hardware: Die neuen ROMs für den 
Apple Ile. Teil 1: Grundlagen. Teil 2: 
Standardein- und -ausgabe. 10/85/22 
Ulrich Stiehl 

Hardware: Die neuen ROMs für den 
Apple Ile. Teil 3: Applesoft-Interpreter. 
Harald Grumser. 10/85/34 

Hardware: EPROM-Programmiergerät 
für den Apple Il. Dr. Roland Schule. 10/ 
85/40 

Pascal: Pascal-Kompaktkurs für Ap- 
plesoft-Programmierer. Hinweis für 
Sammeldisk. Ulrich Stiehl. 10/85/46 
Recht: Rechtsprechung zum Software- 
Urheberrecht. RA Dieter Naber. 10/85/ 
47 
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Pascal: Tips und Tricks in Pascal. Teil 3: 
P-Code-Cruncher für 128K-Pascal. 
Dieter Geiß. 10/85/50 

Pascal: Pascal 1.2. Eine Richtigstellung. 
Bernard Condrau. 10/85/60 

Nachtrag: Schwierigkeiten mit den 
Graf-quattro-Cursoren. Nino G. Barbie- 
ri. 10/85/63 

Hobby: Was ist Logo? Eine Kurzeinfüh- 
rung. Kurt Rudi. 10/85/64 

Hobby: Puzzle mit der Maus. Joachim 
Mette. 10/85/65 

Buch: Lerne BASIC auf dem Apple. 10/ 
85/67 

Buch: Mathematik auf dem Apple Il, Ile, 
IIc. 10/85/67 

Buch: Trainingsbuch zu APPLESOFT- 
BASIC. 10/85/67 

Buch: Apple Il für Technik und Wissen- 
schaft. 10/85/67 

Buch: Macintosh (Anwenderhandbuch). 
10/85/67 

Buch: Macintosh. 10/85/67 

Buch: Das Apple Macintosh Buch. 10/ 
85/67 

Leserbriefe: 10/85/68 

Test: Speedemon-Karte. Ulrich Stiehl. 
10/85/71 

Test: Die 16K-Akku-Karte LC-85. Ha- 
rald Grumser. 10/85/72 

Test: Zwei neue Apple-Ile-Kompatible. 
Apple-Ile-Kompatibler SCSe. Jürgen 
Geiß. 10/85/73 

Test: Zwei neue Aplle-Ile-Kompatible. 
Apple-Ile-Kompatibler SCSes. Harald 
Grumser. 10/85/74 


Kurzbericht: 4.000 Frei-Programme. 
10/85/75 
Kurzbericht: Buchhaltungsprogramm 


BUCH. 10/85/75 

Kurzbericht: Präsentationsgrafiken mit 
(G)ROGRAF. 10/85/75 

Kurzbericht: Melco-Druckpuffer von 
Watanabe. 10/85/75 

Kurzbericht: Digitalisiertabletts höchster 
Präzision. 10/85/75 

Kurzbericht: Neuer Apple-Kompatibler. 
10/85/75 

Kurzbericht: Flugsimulator mit deut- 
scher Anleitung. 10/85/75 

Kurzbericht: OKI-Drucker für Apple Il. 
10/85/76 

Kurzbericht: Macprint-Satzsystem. 10/ 
85/76 
Kurzbericht: 
10/85/76 
Kurzbericht: Turbo-Lader Graph. 10/ 
85/76 

Kurzbericht: Sound Sampling System. 
10/85/76 

Kurzbericht: Apple dementiert „Heute 
Journal“. 10/85/76 
Kurzbericht: Apple GmbH 
Stammkapital. 10/85/76 
Kurzbericht: Apple-Händler-Netz um- 
strukturiert. 10/85/76 

Kurzbericht: MAUS: Mac an Hochschu- 
len. 10/85/76 

Kurzbericht: Mac-Leasing für Studen- 
ten: 10/85/76 

Kurzbericht: Leasing von Apple-Com- 
putern. 10/85/76 

Kurzbericht: BTX für Apple Ilc. 10/85/ 
77 

Kurzbericht: Teletex für den Apple Il. 
10/85/77 

Kurzbericht: Mac-Pressekonferenz bei 
Apple in München. Harald Grumser. 10/ 
85/77 


Macprolog2-Interpreter. 
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Grafik: Trickfilmgrafik für Spielprogram- 
me. Mit einem Sprite-Editor. Bernd Kla- 
wonn. 11/85/6 

Drucker: Großformatiger HGR-Aus- 
druck. Mark Liebrand. 11/85/20 

DOS 3.3: Disk-Chirurg. Ein Programm 
zur Überprüfung schadhafter Disketten- 
sektoren. Wolf-J. Faust. 11/85/24 
ProDOS: ProDOS-Anpassung für Lauf- 
werke mit 40 bis 160 Spuren. Horst 
Hanke und Hans-Georg Hüneke. 11/ 
85/29 

Assembler: Z80-Assembler-Program- 
mierung unter CP/M. Dr. H. Kersten. 
11/85/33 

Applesoft: Print-Using. Rechtsbündige 
Zahlenformatierung. Ulrich Stiehl. 11/ 
85/49 

Applesoft: Referenztest. Zeilenverwei- 
se in Applesoft-Programmen. Ludger T. 
Engbert. 11/85/55 

Pascal: Tips und Tricks in Pascal. Teil 4: 
Die Compiler-Optionen. Dieter Geiß. 
11/85/57 

Test: Utilities von Beagle Brothers. 
Franz-Josef Hüskens. 11/85/65 

Test: Triple-Dump. Ein Bildschirm- 
Druckprogramm. Rolf W. Becker. 11/ 
85/66 

Test: Diversi-DOS 4.1-C mit Garbage- 
Collection. Rudolf Rötering. 11/85/67 
Test: BASF-Flexydisk 1X und 1D. Ulrich 
Stiehl. 11/85/68 

Test: Die Microsoft-Premium-Softcard 
für den Apple Ile. Ulrich Stiehl. 11/85/ 
70 


- Vermischtes: Peeker-Sammeldisketten 


#1-#11. 11/85/71 
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Hobby: Cosmo-Crumble. Ein Welt- 
raum-Action-Spiel. Oliver Steinmeier 


und Alexander Niemeyer. 12/85/6 
Drucker: Imagewriter kurz und bündig. 
Die wichtigsten Steuerbefehle. Thor- 
sten Schunk. 12/85/8 

Grafik: ASCII-Text im HGR-Bildschirm. 
Mit einem Zeichengenerator-Pro- 
gramm. Markus Geltenpoth. 12/85/16 
Applesoft: Komfortabler INPUT von 
Strings. Ulrich KuBmann. 12/85/20 
Applesoft: Tabelle der wichtigen Ap- 


plesoft-Interpreter-Routinen. Harald 
Grumser. 12/85/30 
Pascal: Pascal-Kompaktkurs. UCSD- 


und Turbo-Pascal. Teill: Grundlagen für 
Applesoft-Programmierer. Ulrich Stiehl. 
12/85/33 
Vermischtes: Richtlinien für Autoren. 
12/85/61 
Turbo: CP/M-56K-RAM-Disk unter Tur- 


bo-Pascal. Bernd Eichinger-Wiesch- 
mann. 12/85/62 
Kurzbericht: Kleine Mikrocomputer- 


Chronik. Ulrich Stiehl. 12/85/64 
Leserbriefe: Pascal-Leserbriefe. 12/85/ 
68 

Vermischtes: Jahresinhaltsverzeichnis. 
Peeker 1/84 bis 12/85. 12/85/72 

Test: MS-Basic 2.0 für den Mac. Pit 
Capitain. 12/85/76 

Produkt: Kyan-Pascal. 12/85/77 


[ 


Ältere Peeker-Hefte können für DM 6,50 pro Heft 
zuzüglich Versandspesen angefordert werden. Ver- 
griffene Hefte sind als Photokopien für DM 10,— pro 


Heft erhältlich. 
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Jahresinserenten- 
verzeichnis 1985 


aaa-electronic, Freiburg 

ABACOMP GmbH, Frankfurt 

AFC Computer GmbH, Köln 
APPLELAND WALLISER & Co. Heil- 
bronn 

Beam-Verlag, Marburg 

Brainware GmbH, Wiesbaden 

Gerhard Brecht, Stuttgart 

Bühler Elektronik, Baden-Baden 

CCP Datentechnik, Hamburg 
COMPTRON Hoffmann, Computertech- 
nik, Kiel 

Computerladen, Memmingen 
Computerware, Frankfurt 

Copy-Team, Erlangen 

CP/D, Düsseldorf 

CPS Datenservice, Offenbach 

CVB Computervertrieb, Hamburg 
Jürgen Dahlhoff' Computertechnik, 
Soest 

DATA BECKER GmbH, Düsseldorf 
Deutsche Rechner Gesellschaft, Drei- 
eich 

Digitalanalog, Krombach 

Ulrich Dobbertin, Brühl 

D.O.S. Computersysteme, Schwäbisch 
Hall 

Electronic Spezial 
Gießen 

Erbrecht Computer Related Products, 
Hamburg 

ERPHI Electronic, Baldham 

Franzis Verlag, München 

German Empire Software, Bremen 
Hamburger Computerversand, Ham- 
burg 

HIB Computerladen, Nürnberg 

Norbert Hunstig, Münster 

IBS Computertechnik, Bielefeld 14 
Ingenieurbüro Fricke, Berlin 

Inter-Data GmbH, Singen 

Interkom Electronic GmbH, Isernhagen 
4 

Intus Lern-Systeme AG, Astano 

Klaus Jeschke, Kelkheim 

KFC, Königstein 

Lucius Computer Programme, Dinsla- 
ken 1 

W.-D. Luther Verlag, Sprendlingen 
McGraw-Hill Book Co. GmbH, Hamburg 
MCI GmbH, Bergisch Gladbach 
Memsoft GmbH, Frankfurt 

Erich-Willi Meyer, Frohnhausen 
Micromint Streil, Erkrath 

Ulf Mohwinkel Electronic, Leverkusen 
Arnd Nolte, Langen 

Novocomp Datensysteme GmbH, Trier 
Pandabooks, Berlin 

Pandasoft, Berlin 

Röckrath, Aachen 

R + R Electronic, Heidelberg 

SCS Sander Computer Systeme, Rem- 
scheid 

Softline, Oberkirch 

Dipl.-Ing. R. Springmann, Hannover 
Summagraphics GmbH, München 
Sybex-Verlag GmbH, Düsseldorf 
Schappach Computer, Mannheim 

Tewi Verlag, München 

TLK Hard- und Software, Münster 
Tombstone Micro, Berlin 

UCD Computersysteme, .Freiburg 
Ueding Electronics, Menden 

VOBIS, Aachen 

Weidemann Electronic, Rengsdorf 
Karl-Heinz Weiss, Wilhelmshaven 


Service GmbH, 
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MS-Basic 2.0 für den Mac 









getestet von Pit Capitain 


Seit einiger Zeit ist eine neue Ver- 
sion des Microsoft-Basic für den 
Macintosh erhältlich, nämlich die 
Version 2.0. Da die bisherige Ver- 
sion 1.0 bereits im Peeker ausführ- 
lich beschrieben worden ist (s. 2/ 
84, 1/85, 4/85, 5/85, 8/85), wer- 
den hier nur die Besonderheiten 
der Neuversion vorgestellt. 

Die alte Version 1.0 des Basic war 
von Microsoft recht schnell (etwas 
voreilig?) auf den Markt gebracht 
worden, und das merkte man ihr 
auch an. Sie war sehr langsam und 
unterstützte nur wenige Möglich- 
keiten des Macintosh. 

Nun gibt es die neue Version 2.0, 
die zwar schon besser ist, aber im 
Vergleich zu anderen Programmen 
für den Mac immer noch Wünsche 
offen läßt. Microsoft schreibt denn 
auch im neuen Handbuch : „MS- 
Basic is always growing, changing, 
and improving.“ Dies erscheint mir 
persönlich auch notwendig. 


Der äußere Eindruck 


Das Handbuch zu der neuen Ver- 
sion ist besser geworden. Vor al- 
lem die ROM-Routinen, die man 
von Basic aus aufrufen kann, sind 
nun recht ausführlich dokumen- 
tiert. 

MS-Basic 2.0 gibt es in zwei unter- 
schiedlichen Formen: eine dezi- 
male Version für den kaufmänni- 
schen Bereich (wie Version 1.0) 
und eine binäre Version für den 
‚wissenschaftlichen Bereich 
(schnellere Arithmetik). 

Der Unterschied zwischen beiden 
Versionen liegt einzig in der Art, 
wie Zahlen intern dargestellt wer- 
den. So gering dieser Unterschied 
auch erscheinen mag, die Basic- 
Programme laufen nur unter einer 
der beiden Versionen, nicht mit 
beiden! 

Nachdem man eine der beiden Ba- 
sic-Varianten gestartet hat, sieht 
man gleich an den Menüs, daß sich 
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“ \DieMenues: 


Abb. 1 


Find... # ® 
Find NeHt EAN 
ring Seiestieg Tont 
Eindiabei 
Find the Lursor 
Replace... 


MENU 1,0, 1, "Ablage" 
MENU 2,0, 1, "Bearbeiten" 
MENU 3,0, |, "Fenster" 
MENU 4, 0, I, "Kontrolle" 
MENU 5,0,1,” 


etwas verändert hat. 

Die Befehle des „Edit“-Menüs 
kann man nun endlich auch über 
die Tastatur aufrufen, was sehr an- 
genehm ist. Daneben gibt es ein 
„Search“-Menü, mit dem man be- 
stimmte Stellen im Programmtext 
suchen bzw. ersetzen kann. Im 
„Run“-Menü gibt es den Befehl 
„Step“, mit dem man Programme 
Schritt für Schritt durchtesten 
kann. Wie das dann auf dem Bild- 
schirm aussieht, zeigt Abb. 1. Der 
Befehl, der gerade ausgeführt 
wird, ist umrahmt. Das neue „Win- 
dows“-Menü dient zum Öffnen der 
unterschiedlichen Fenster. 

Die beste Änderung für das Arbei- 
ten mit dem Basic besteht darin, 
daß der Editor nun endlich bild- 
schirmorientiert arbeitet. Das be- 
deutet, daß man nicht mehr nur 
einzelne Zeilen auf einmal bearbei- 
ten kann, sondern mehrere Zeilen 
und beliebige Abschnitte gleich- 
zeitig. 

Das Editieren geschieht direkt im 
„List“-Fenster. Man erspart sich 
also das mühsame Kopieren der 
Zeilen in das Kommandofenster. 
Das „List“-Fenster hat sich übri- 
gens noch weiter verbessert: Zum 
einen werden die Basic-Befehle 
fett gedruckt, was die Lesbarkeit 
der Programme deutlich erhöht 
(siehe Abb. 1), zum anderen läßt 
sich das Fenster ganz einfach ver- 
größern. Mit einem Doppelklick in 
der Titelzeile wird das Fenster so 
groß wie der ganze Bildschirm. 
Nach einem erneuten Doppelklick 
schrumpft es wieder automatisch 
auf die alte Größe zusammen. 


Labels und Subprograms 


Der bedeutsamste Unterschied 
zum Basic 1.0 ist: Man braucht kei- 
ne Zeilennummern mehr! Das 
heißt, man kann Zeilen entweder 
gar nicht oder mit einem Label im 
Klartext markieren (siehe Abb. 1). 











21404000 : 
1404010 : 
41404020 : 26 SF 7A 34 DA 
1404030 : 61 00 02 BC 66 
wall : 65 F& 38 00 DE 
404050 : FF FE 4B F5 00 
1404060 : 1C 35 00 32 DO 
404070 : 01 CC 4E 75 ZF 
1404080 : 70 00 22 SF 4E 
404000 : F& 48 6 
A4040R0 : 66 IC 5 
404060 : OA 74 36 
a4aüaüln : FB 94 70 
21404000 : 4E 75 49 
= 14040E0 : 20 4D 
a4l4orFü : 60 FS 
404100 : 
1404110 : 00 01 
1404120 : HE 75 
4404130 : 00 CA 


Abb. 2 


ED 00 ZA ZR 
62 FA 50 







Dadurch ist das Programmieren 
sehr viel komfortabler geworden. 
Man kann zum Beispiel schnell 
einmal einen Abschnitt des Pro- 
gramms an eine andere Stelle ver- 
schieben, ohne daß man gleich alle 
Zeilen neu durchnumerieren muß. 
Wenn man unbedingt will (oder 
wenn einem keine neuen Labels 
mehr einfallen), kann man natürlich 
auch Zeilennummern verwenden. 


Eine weitere Änderung, die das 
Programmieren erleichtert, ist die 
Möglichkeit, sogenannte „Subpro- 
grams“ zu schreiben. Es handelt 
sich hierbei um spezielle Unterpro- 
gramme. Sie haben eigene (lokale) 
Variablen, die nichts mit den Varia- 
blen außerhalb des Uhnterpro- 
gramms zu tun haben (ähnlich wie 
bei den Prozeduren in Pascal). An 
diese Unterprogramme können, 
ebenfalls wie in Pascal, Parameter 
übergeben werden, wobei sogar 
Arrays mit variabler Länge zuge- 
lassen sind (wie in Modula). Die 
lokalen Variablen behalten ihren 
Wert von Aufruf zu Aufruf bei, was 
ebenfalls vorteilhaft sein kann. 
Leider können solche Unterpro- 
gramme nicht verschachtelt und 
auch nicht rekursiv aufgerufen 
werden. 


Töne, Bilder und Fenster 


Das MS-Basic 2.0 wurde in einigen 
neuen Punkten an die Fähigkeiten 
des Macintosh angepaßt. 

Mit den Befehlen „SOUND“ und 
„WAVE“ kann man Töne erzeu- 
gen. Dabei können bis zu vier 
Stimmen gleichzeitig mit unter- 
schiedlichen Hüllkurven erzeugt 
werden. Die Töne werden — wie 
beim Mac üblich — „asynchron“ 
ausgegeben, d.h. das Programm 
läuft weiter, während die Musik 
spielt. Dadurch verlangsamt sich 
dann natürlich die Ausführung des 
restlichen Programms. 

Bisher konnte man Texte von an- 


Adreßbereich : 


BS 02 0C ZA DD IA C2 67 06 IA DC 
ER 00 06 52 6A 00 14 70 00 60 RE 


42 08 85 00 00 61 00 02 9R 60 04 
26 70 00 4A 35 00 00 6? 04 61 IE 
45 0C 44 02 O0 54 E4 08 ED O0 0? 
00 42 AA 00 SA 70 00 4dE D3 ?C 00 
46 06 40 00 34 08 30 00 00 0C 40 
09 24 20 00 12 61 00 FE 70 67 06 
5 31 41 00 18 70 Di 60 F4 61 00 










5404000 


bis $405SFFF 


von 


Fensterbreite : 
Ö} klein 


@) mittel (K groß 


deren Mac-Programmen über das 
„Clipboard“ in Basic-Programme 
übernehmen. Das gleiche ist nun 
auch mit Bildern möglich. 

Diese Bilder kann man auch durch 
ein Basic-Programm selbst erzeu- 
gen und auf dem Bildschirm aus- 
geben lassen. Dafür gibt es die 
„PICTURE“-Befehle. Die Bilder 
können natürlich auch auf dem 
Imagewriter ausgedruckt werden. 
Neben diesen nützlichen Eigen- 
schaften kann man beim Basic 2.0 
vor allem auch solche Programme 
schreiben, wie man sie vom Mac- 
intosh her kennt, also mit eigenen 
Menüs, eigenen Fenstern, Dialog- 
boxen usw. Dazu dienen die Be- 
fehle „MENU“, „WINDOW“, 
„DIALOG“ u.a. 

Ein solches Programm kann zu- 
nächst seine Menüs und Fenster 
erzeugen und dann so lange war- 
ten, bis der Benutzer etwas mit der 
Maus anwählt. Danach werden die 
entsprechenden Unterprogramme 
aufgerufen, und das Ganze wie- 
derholt sich so lange, bis das Pro- 
gramm beendet ist. 

Ein Beispiel hierfür zeigt Abb. 2. 
Diese Programme sehen zwar gut 
aus, aber die Erzeugung der Me- 
nüs und Fenster ist recht aufwen- 
dig. Auch sind solche Programme 
langsamer als die „normalen“ 
Basic-Programme. 


Fazit 


Die neue Version 2.0 des MS-Ba- 
sic hat viele Schwachstellen der 
alten Version 1.0 beseitigt. Das 
Programmieren ist deutlich kom- 
fortabler geworden. Da die Fähig- 
keiten des Macintosh nun eben- 
falls in höherem Maße unterstützt 
werden, kann man den Basic-Pro- 
grammierern dieses Basic emp- 
fehlen, wenngleich die Programm- 
ausführung immer noch nichts mit 
der Geschwindigkeit eines 16-Bit- 
Computers zu tun hat. 
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Kyan-Pascal 


Kyan-Pascal ist ein völlig neuartiges Pascal-System für den Apple Il+/e/c, das von der Firma Kyan Software in San Francisco 
entwickelt wurde und als Version 1.0 im April dieses Jahres erstmals ausgeliefert wurde. Inzwischen gibt es die neueste Version 
1.2 vom 14. August 1985. 


Vor- und Nachteile von Kyan-Pascal 


1. UCSD-Pascal-Implementierungen für 
den Apple Il laufen zwar unter dem 
6502-Prozessor und sind deshalb auf 
den Apple bestmöglich angepaßt, 
doch wird nur der relativ langsame 
Pseudo-Code erzeugt. Z80-Pascal- 
Implementierungen sind demgegen- 
über zwar in der Regel als Vollcompi- 
ler ausgelegt, doch wird erstens eine 
Z80-Karte benötigt und zweitens läßt 
die Anpassung an den Apple Il, z.B. 
bezüglich der HGR-Grafik, zu wün- 
schen übrig. 


Kyan-Pascal erzeugt einen echten 
6502-Objektcode. Es vereinigt damit 
die Geschwindigkeitsvorteile eines 
Vollcompilers mit der bestmöglichen 
Anpassung an den Apple Il. 


2. Kyan-Pascal läuft unter allen denkba- 
ren Apple-Konfigurationen (II+/e/c). 
Man kann es bereits mit Nutzen ein- 
setzen, wenn man nur über eine Mini- 
malkonfiguration mit Apple II+/e oh- 
ne 80-Zeichenkarte und ohne zweites 
Laufwerk verfügt, weil auf der (unge- 
schützten) Programmdiskette noch 
über 40.000 Bytes für die Arbeitsdatei 
frei sind. Wer besser ausgestattet ist, 
kann eine 80-Zeichenkarte, ein zwei- 
tes Laufwerk sowie eine RAM-Disk 
verwenden. 


3. Kyan-Pascal läuft unter dem (mitge- 
lieferten) Betriebssystem ProDOS 
und kann deshalb auch in Verbindung 
mit größeren Massenspeichern (Fest- 
platten sowie 80-Spur-Disketten 
usw.) problemlos eingesetzt werden. 


4. Im wesentlichen besteht Kyan-Pascal 
aus einem sehr brauchbaren Full- 
screen-Editor (in zwei Versionen für 
40- und 80-Zeichendarstellung), der 
auch als Textverarbeitungsprogramm 
benutzt werden kann, einem Compi- 
ler und einer Runtime-Library (Biblio- 
theksdatei). 


. Der Kyan-Pascal-Befehlssatz 


Fertig compilierte Programme können 
in Verbindung mit der Bibliotheksdatei 
unabhängig von Kyan-Pascal als Pro- 
DOS-Systemdateien gestartet wer- 
den. Die Weitergabe der Runtime- 
Library wird von der Firma Kyan Soft- 
ware ohne Zahlung von Lizenzgebühr 
gestattet. 


lehnt 
sich eng an Standard-Pascal an, so 
daß beispielsweise Befehle wie GO- 
TOXY usw. fehlen. Für String-Verar- 
beitung und HGR-Grafik werden je- 
doch Include-Dateien mitgeliefert. 
Dieser zunächst gravierend erschei- 
nende Nachteil wird jedoch — wie wir 
meinen — durch zwei entscheidende 
Vorteile aufgehoben: 


a) Ein laufendes Kyan-Pascal-Pro- 
gramm befindet sich in der von Apple- 
soft her gewohnten Monitor-Umge- 
bung, d.h. der Pascal-READLN- 
Befehl wird z.B. durch die Monitor- 
Routine GETLN (entspricht dem 
Applesoft-INPUT-Befehl) realisiert. 
Der Aufruf von Monitor- oder gar 
Applesoft-ROM-Routinen ist deshalb, 
wenn man auf die Zero-Page Rück- 
sicht nimmt, grundsätzlich möglich. 


b) In einen Kyan-Pascal-Quelltext 
können beliebig viele echte 6502- 
Quelltexte eingebaut werden. Man 
kann deshalb Kyan-Pascal auch als 
6502-Assembler benutzen. Ein Bei- 
spiel-Programm macht dies deutli- 
cher: 


PROGRAM DEMO; 
BEGIN 
WRITELN (’Jetzt 6502’); 
4a {Beginn Assembler} 
HOME EQU $FC58 
BELL EQU $FBDD 
JSR HOME ‚Bildschirm löschen 
JSR BELL ;Piepston ausgeben 
{usw.} 
#{Ende Assembler} 
WRITELN (Das war 6502); 
END. 


4 kurzberichte 44 


Auf diese Weise ist es prinzipiell 
möglich, beliebige Assemblerrouti- 
nen in Kyan-Pascal-Programme ein- 
zubauen und darüber hinaus die in 
Standard-Pascal nicht vorhandenen 
Befehle zu kompensieren. 


6. Kyan-Pascal scheint uns sowohl für 
Anfänger, insbesondere auch im 
Schulunterricht, als auch für Fortge- 
schrittene bestens geeignet zu sein. 
Anfänger können sich auf den Stan- 
dard-Befehlssatz beschränken, wäh- 
rend Fortgeschrittene die Assembler- 
Features ausnutzen können. Übri- 
gens erzeugt Kyan-Pascal beim 
Compilieren ein echtes 6502-Quell- 
code-Listing, und zwar auch für die 
Pascal-Befehle, so daß ein nachträgli- 
ches Optimieren des Assembler- 
Quellcodes möglich ist. 


Einladung zum Sammelbezug 


Kyan-Pascal kostet in den USA 69.95 
Dollar. Unter Berücksichtigung der Aus- 
landseinfuhr- und Überweisungskosten 
muß man umgerechnet über DM 200,— 
bezahlen. Damit Sie diese interessante 
Pascal-Implementierung so günstig wie 
möglich beziehen können, bieten wir 
Ihnen als Peeker-Serviceleistung die 
Teilnahme am Sammelbezug an. Als 
Stückpreis haben wir DM 170,- (inkl. 
Porto, Verpackung und MwSt) festgelegt. 
Voraussetzung hierfür ist allerdings, daß 
eine ausreichende Anzahl von Vorbe- 
stellungen eingeht. Werten Sie bitte die- 
se Aktion als einen Versuch, Software im 
Sammelbezug preiswert zu erwerben. 
Sollten sich nicht genügend Interessen- 
ten melden, so müssen wir dieses 
Service-Angebot wieder vergessen. 
Kyan-Pascal ist freilich auch bei ein- 
schlägigen Importeuren (für z. Zt. ca. DM 
270,-) erhältlich. 


Wie wird’s gemacht? Senden Sie uns bis 
spätestens 31.1.1986 Ihre Bestellung über 
Kyan-Pascal zum Preis von DM 170,- inkl. 
Versandspesen. Teilnehmen können alle 
Peeker-Leser. Ihre Peeker-Redaktion 
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Vorschau auf Peeker 1/86 


Wie funktioniert Quicksort? 
Mit einem Applesoft-Demo 


Superschnelles Quicksort in Assembler 


Vokabeltrainer in Applesoft 
Mit 1000 Wörtern Deutsch-Englisch 


Applesoft-Grafik-Erweiterung 


PROTODOS 
Konvertierung von ProDOS- in DOS-Textfiles 


Designer 
Zeichensatz-Generator in UCSD-Pascal 


Read-Pascal 
Konvertierung von UCSD- in Turbo-Textfiles 


Der Apple Ile als Werkzeug für Betriebswirte 
Mit Simplex-Anwendungsbeispielen 


Serielle Schnittstellen beim Apple Ilc 


Testberichte: 
Video-1000-Interface 
Star-Drucker SG-15 
Prometric 
Microbuffer-Karte 
Mockingboard 

Write Choice 

Ampersoft 
FSS-280-Disk-Subsystem 


Inserentenverzeichnis Peeker 12/85 


aaa electronic gmbh, Freiburg . 
Abacomp, Frankfurt 

AFC Computer GmbH, Köln 
Appleland Walliser & Co., Heilbronn . 
Brainware, Wiesbaden 
ccp-datentechnik, Hamburg . 

D.O.S. Computersysteme, Schwäbisch Hall 
Electronic Spezial Service GmbH, Giessen 
Frank & Britting GmbH, Forst 
Ingenieurbüro Fricke, Berlin . 
Interkom electronic, Isernhagen 
Intus, Waldshut-Tiengen . 

Jeschke, Kelkheim . 

MCI GmbH, Bergisch Gladbach 
Micromint Computer GmbH, Erkrath . 
U. Mohwinkel Electronic, Leverkusen 
OKIDATA GmbH, Düsseldorf 
Pandabooks, Berlin 

Pandasoft, Berlin 

SCS Sander, Remscheid 

Dipl.-Ing. R. Springmann, Hannover . 
Summagraphics, München 
Tewi-Verlag, München 

Ueding electronics, Menden 
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COSMO CRUMBLE 

T.CC2 

T.CC3 

T.CC4 

T.CC5 

T.CC6 

T.CC8 

Ccc2 

CC3 

CCc4 

CC5 

CC6 

CC7 

CC8 

CC.LEVELS 

(1) Reaktionsspiel für Tastatur oder 
Joystick; (2) Heft 12/85, S. 6; (3) 
II+, Ile oder Ilc; wahlweise Joy- 
stick; (4) DOS 3.3; (5) RUN COS- 
MO CRUMBLE 


IW.DEMO 

T.IW.IN 

IW.IN 

T.IW.OUT 

IW.OUT 

ECHO 

(1) Initialisierung des Imagewriters 
durch mit IW.DEMO generierbare, 
BRUN-fähige Steuer-Sequenz- 


Programme; (2) Heft 12/85, S. 12; 
(3) Ile oder Ilc (II+ mit Einschrän- 
kungen, wegen der Tastatur); Im- 
agewriter (beim Ile mit Super-Se- 
rial-Card); (4) DOS 3.3 oder Pro- 
DOS; (5) RUN IW.DEMO 


ASCII.EDITOR 
COPY.TEXT.DEMO 
T.COPY.TEXT 

COPY.TEXT 

ASCII.CODES 

(1) Erstellung eines eigenen Zei- 
chensatzes; Kopieren des 40-Z/Z- 
Text-Bildschirms in den HGR-Be- 
reich; (2) Heft 12/85, S. 16; (3) 
speziell II+, aber auch Ile oder IIc 
mit Einschränkungen; (4) DOS 
3.3; (5) RUN ASCII.EDITOR; RUN 
COPY.TEXT.DEMO; (6) Nach 
FLASH werden Großbuchstaben 
auf dem HGR-Bildschirm als Klein- 
buchstaben ausgegeben 


GETTEXT.DEMO 

T.GETTEXT 

GETTEXT 

GETTEXT.PRODOS 

(1) Hilfsprogramm zur Erweiterung 
des Tastatur-INPUT-Befehls durch 


Editierfunktionen; (2) Heft 12/85, 
S. 20; (3) Il+, Ile oder IIc (40 und 
80 Z/Z, auch Videx); (4) DOS 3.3 
(GETTEXT) oder ProDOS mit BA- 
SIC.SYSTEM 1.0 (GETTEXT.PRO- 
DOS); (5) RUN GETTEXT.DEMO; 
(6) für Videx und ProDOS leichte 
Anpassung von GETTEXT.DEMO 
erforderlich, s. Heft 


RAMDISK.PAS 

(1) Installierung einer CP/M-56K- 
RAM-Disk unter Turbo-Pascal; (2) 
Heft 12/85, S. 62; (3) Ile mit 64K- 
Karte; (4) CP/M 2.20 56K; Turbo- 
Pascal 2.0 oder 3.0; (5) RAMDISK 
(unter CP/M, nach Konvertierung 
mit APDOS und Compilieren auf 
Diskette); (6) entspricht der RAM- 
Disk aus Heft 6/1985, S. 55 


JAHRESINHALT 
STICHWORT.SUCHER 
STICHWORT.SUCHER.OBJ 

(1) Jahresinhaltsverzeichnis als bi- 
näre Textdatei mit Programm zur 
Suche von Stichwörtern; (2) Heft 
12/85, S. 72; (3) II+, lle oder IlIc; 
40 und 80 Z/Z (auch Videx); (4) 
DOS 3.3; oder ProDOS (5) RUN 
STICHWORT.SUCHER 
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Trickfilmgrafik 
Plakatdruck 
640K-ProDOS 
Print-Using 
Pascal-Compiler 
Premium-Softcard 





Bestellcoupon 


Ich habe den neuen Abonnenten geworben und er- 
halte kostenlos den Disk-Locher. 


Name, Vorname 
Straße, Postfach 
PLZ, Ort 


Datum, Unterschrift 


MAGAZIN FÜR APPLE-COMPUTER 










»peeker« bietet Ihnen was! 


Wer jetzt schenkt hat mehr von seinem Apple. 
Dafür schenkt »peeker« Ihnen etwas: Den prakti- 
schen Disk-Locher, der die Speicherkapazität Ihrer 
Disketten verdoppelt! 


Sie wissen ja, wie gut der »peeker« Ihnen im täg- 
lichen Umgang mit Ihrem Apple behilflich ist. Und 
Sie brauchen Ihren »peeker« nicht mehr zu teilen 
oder auszuleihen. 


Der blaue Disketten-Locher ist unser Geschenk an 
Sie für einen neuen »peeker«-Abonnenten. Denn 
wer einen Apple hat, der soll auch seinen »peeker« 





haben. 


(ee 


ch bin der neue Abonnent. Bitte liefern Sie mir bis 
auf Widerruf, zumindest aber für 1 Jahr, »peeker« 
zum Jahresbezugspreis von DM 72,- (Ausland plus 
DM 18,- Porto) an folgende Anschrift: 


Coupon ausschneiden und 
einsenden an: 


»peeker« 
Abonnementservice 


Im Weiher 10 
6900 Heidelberg 1 


Name, Vorname 
Straße, Postfach 
PLZ, Ort 


Datum, Unterschrift 


Gewünschte Zahlungsweise 
[] gegen Rechnung 
U] bargeldlos durch Bankeinzug 


Konto-Nr. Bankleitzahl 
Geldinstitut 

Vertrauensgarantie: 

Diese Bestellung kann ich innerhalb einer Woche 


je’ 


bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, .. 
6900 Heidelberg 1 widerrufen. Zur Wahrung der Hüchig 
Frist genügt die rechtzeitige Absendung. Ich be- PUBLIKATION 


stätige die Kenntnisnahme mit meiner Unterschrift: 


2. Unterschrift 
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MEGA-CORE besteht aus: 


- 3 1/2“ Festplatte mit 10 MB 

- Harddiskcontroller auf einer Slotkarte 

- 70 W Netzteil (12 W f. Platte /58W f. Apple) 
- Lüfter zur Kühlung des Rechners 


- Software zur Anpassung von vier Betriebs- 
systemen, DOS, CP/M, PASCAL u.ProDOS 


- Ausführliches deutsches Handbuch 


Be 


 MEGA-CORE macht Ihren Apple _ 
zum Profisystem: 


- Jedes Betriebssystem bootet von der Platte 


- Alle Betriebssysteme gleichzeitig auf der 
Platte bei extrem schnellem Zugriff 


- Die ganzen 10 MB sind frei konfigurierbar 








Elektronik Entwicklungs GmbH 
Langestr. 4, Postfach 1129, 7529-Först 
Telefon: 07251 /103068-69, 


Telex: 7822452 fub d 





Die Harddiskcontroller-Spezialisten 


MEGA-CORE kostet 4.560,— DM inkl. MwSt. beim örtlichen Fachhandel 





